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ABSTRACT 


The Commander in Chief Pacific Fleet Propulsion Examining Board 
(CINCPACFLT PEB) is a professional group of naval officers experienced in 
engineering readiness. This group of naval officers conducts examinations to assess 
the engineering readiness of the Pacific Fleet. There are two classes of examinations 
conducted by the PEB. The Operational Propulsion Plant Examination (OPPE) 
assesses the engineering readiness when the ship is underway. The Light Off 
Examination (LOE) assesses the engineering readiness after a ship’s propulsion plant 
has been secured, for example overhauls, in excess of ninety days. The examination 
data is tiien collected in the exam summary worksheet and entered into the database. 

The current database system uses the dBASE IV Plus database management 
system (DBMS) software and is constructed as a flat file system. Redundant data, 
inaccuracies, and inefficiencies are prevalent throughout the current system. The 
purpose of this thesis is to design a relational database (Propulsion Examining Board 
Database System (PEBDS)), implement and replace the ciurent system, and provide 
a user fiiendly graphical user interface (GUI). The PEBDS and the GUI are 
constructed using Paradox for Windows Version 4.5 DBMS software. 
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1. INTRODUCTION 


A. BACKGROUND 

The Commander in Chief Pacific Fleet Propulsion Examining Board (CINCPACFLT 
PEB) was established to ensure the engineering readiness needs of the Pacific Fleet. Its 
specific mission is to conduct Operational Propulsion Plant Examinations (OPPE) and Light 
Off Examinations (LOE). These examinations serve as a verification to CINCPACFLT as to 
the degree of engineering readiness of the Pacific Fleet. The OPPE is an operational 
examination which verifies engineering readiness in six different areas. These areas consist 
of the following: Material Readiness, Fire Fighting, Program Management, Training, Level 
of Knowledge, and Operations. The LOE is an examination which verifies engineering 
readiness when the propulsion plant has been secured, for example overhauls, for more than 
ninety days. The LOE is required before lighting off the propulsion plant and verifies 
engineering readiness in five different areas. These areas consist of the following: Material 
Readiness, Fire Fighting, Program Management, Training, and Level of Knowledge. 

The PEB is segregated into three sub-organizations: Gas Turbine, Steam, and Diesel. 
These sub-organizations are representations of the various propulsion types that are currently 
installed on Pacific Fleet ships. Within these sub-organizations, teams are selected to conduct 
the examinations and consist of five examiners. The team examiners include a senior 
examiner, usually a 0-5 or 0-6 and four junior examiners, usually a 0-3 or 0-4. Additionally 
a Project Officer (PO) is chosen from the junior examiners. He or she is responsible for the 
overall coordination of the examination and is responsible for maintaining the examination 
summary worksheet. 

The examination summary worksheet contains all the vital data for each examination 
area. When the examinations are complete, the PO is required to submit the examination 
summary worksheet to the Database Administrator (DBA) for entry into the database. 

The current database was developed in house using dBASE IV Plus for DOS 
database management system (DBMS) software. This database, however, is a flat file system 
and has resulted in numerous instances of redundant data. As a result, the performance of the 
database is very poor and the report and query processing is very inefficient and inaccurate. 
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The DBA requested a study be generated regarding improvements to the current 
database system. He suggested developing a graphical user interface (GUI), improving 
database performance, and providing efficient and accurate reports and queries. In addition, 
the senior examiner responsible for statistical information on examinations suggested 
providing graphical presentations of queries. This thesis proposes a system designed to 
accomplish these tasks. 

B, PEB DATABASE SYSTEM (PEBDS) 

The Propulsion Examining Board Database System (PEBDS) is designed to replace 
the current database system and make retrieval and storage of information easier and 
efficient. Additionally, providing a user friendly GUI and graphical presentations of queries 
will facihtate decision making for all levels of management. To accomplish this, the author 
interviewed junior and senior PEB examiners to determine their requirements. 

The DBMS software that was chosen to construct the PEBDS is Paradox for 
Windows Version 4.5. The PEBDS is a menu driven apphcation and mimics a Windows 
application. This ensures that users with a background in a Windows environment can easily 
navigate around the PEBDS without having knowledge of Paradox for Windows. 

C. CHAPTER DESCRIPTIONS 

Chapter n will discuss the application development methodology used in developing 
the PEBDS. The definition, requirements, evaluation, design, and implementation phases will 
be discussed. This chapter will define the scope and objectives of the apphcation as well as 
how these objectives will be accomphshed. 

Chapter HI will discuss conclusions, discussions, and recommendations. 

i^pendices A. through H. provides supporting and substantiation of requirements, 
data dictionary, application documentation (ObjectPAL text), data flow diagrams (DFD’s), 
and a user’s guide. 
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n. DATABASE APPLICATION DEVELOPMENT 


The PEBDS was developed using five phases. The five phases are the definition, 
requirements, evaluation, design, and implementation. These phases and their requirements 
will be discussed in this chapter. 

A. PHASE I: DEFINITION 

The current database system has several problems. It is unable to provide accurate 
and timely data, the queries are static, and it uses a flat file configuration which allows storing 
redundant data. The current system uses dBASE FV Plus DBMS, which is not user fiiendly 
and users require training. 

The CINCPACFLT PEB has recently upgraded to IBM compatible 486 PC’s and is 
operating in a Windows environment. The users are asking for a user fiiendly graphical user 
interface (GUI) to interact with the database. 

The scope of this study is to build a relational database system with a GUI, which will 
run in a Windows environment. In addition, support for dynamic queries and graphical 
displays of query results will be developed. 

After the problem has been defined and the scope of the project established, the 
feasibility of the project must be determined. Areas to look at in estabUshing the feasibility 
are cost, time, and schedule constraints. The cost of the project was not considered relevant 
because the hardware and software were already available. The schedule was set to begin in 
April 1995 with a system completion date set for August - September 1995. The time and 
schedule to complete the project is reasonable. 

Benefits from implementing the PEBDS are as follows: 

• Easier system to learn requiring less training 

• Time savings for data entry personnel 
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• Higher integrity of data 

• Increased ability to conduct statistical analysis of data 

B. PHASE H: REQUIREMENTS 

There are two major styles for developing a database. Top-down development 
proceeds from the generic to the specific. It begins with a study of the strategic goals of the 
organization, the means by which those goals can be accomplished, the information 
requirements that must be satisfied to accomplish those goals, and the systems that must exist 
to provide that information. For such a study, a data model is developed at a high level of 
abstraction. [Ref 5:p. 84] 

Bottom-up development operates in the reverse order of abstraction. It begins with 
the need to develop a specific system. The means of selecting the first system varies from 
organization to organization. In some organizations, a steering committee picks the 
application, in other organization, the users may pick it themselves; and in some, the loudest 
voice in the executive rank wins out. [Ref 5;p. 84] 

The first decision was to decide which database development style to use. Bottom-up 
development was selected because it produces quick results, is less risky, and does not 
contribute to the phenomenon of “analysis paralysis” as does the Top-down development 
style. The next step in this phase is to interview all possible users of the system. The author 
interviewed the DBA and the leading senior examiner in charge of constructing statistical 
analysis reports on examination data. They both described the functional requirements in 
great detail. The initial interviews lasted approximately four hours and were beneficial in 
constructing the initial prototype of the system. They specifically requested the following 
reports and queries: 

• CNO monthly report 

• CINCPACFLT monthly report 

• Twelve Month OPPE Cumulative Trend query 
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• Ships With Special Situations query 

• Monthly Summary of Activity query 

• High Power Demonstrations query 

• Program Management query 

• Exam Area Summary query 

• Evolutions and Drills Summary query 

• Fire Fighting query 

• Boiler Flexibility Checks query 

• ECCTT query 

• Level of Knowledge query 

The initial prototype was completed in July 1995. Minor changes were required and 
no further prototypes were necessary. 

1. Data Requirements 

The semantic object modeling approach was chosen over the conventional entity- 
relational approach to model the PEBDS data. Semantic object and entity-relational modeling 
are alike in that both try to represent the user’s view of the data. They are also similar with 
how they describe attributes, cardinalities, and domains. In semantic object modeling, 
however, each object in the semantic object diagram holds all the details about itself With 
entity-relational modeling entities, one must look at several other entities to get the “big 
picture.” This makes semantic object modeling objects more comprehensible than entity- 
relational modeling entities. One can see the relationships between objects without having 
to trace through a network of lines as one must do for the entity-relational model. The 
semantic object diagram for the PEBDS is located in Appendix A. 

Based on the user interviews and prototype process, it was determined that eight 
objects were necessary to meet the requirements of the PEBDS. The objects for the PEBDS 
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are as follows: 


• SHIP 

• EXAM 

• OPERATIONS 

• MATERIAL 

• FIREFIGHTING 

• PROGRAM MANAGEMENT 

• TRAINING 

• LEVEL OF KNOWLEDGE 

The SHIP object is the central object. SHIP will hold all the information of all ships 
in the Pacific Fleet. This includes ship name, propulsion type, commanding officer, executive 
officer, chief engineer, ISIC, previous examination grade, and hull number. This will act as 
a lookup table for all other tables. The data must be entered first in this table before any other 
data is entered into the system. The EXAM object identifies examinations conducted and 
containing information on the particular examination. This includes exam ending date, 
adjective grade, overall finding, ship name, next exam date, project officer, senior examiner, 
examination type, and examination comments. OPERATIONS is a subtype of EXAM 
contains information on the watch sections, evolutions, drills, ECCTT, and overall grade. 
MATERIAL is a subtype of EXAM and contains information on high power demonstrations, 
material self assessment, valve maintenance, gage calibrations, cleanliness, preservation, 
stowage, number of major and minor discrepancies, boiler flexibility, material comments, 
number of reported and uncovered degradations. FIREFIGHTING is a subtype of EXAM 
and contains information on the number of major and minor damage control and repair five 
discrepancies, repair five inventory, AFFF grade, halon grade, fire drill grade and comments, 
DCTT grade and comments and overall grade. PROGRAM MANAGEMENT is a subtype 
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of EXAM and contains information on boiler water/feed water, lube oil quality management, 
fuel oil quality management, diesel jacket water test and treatment, diesel engine trend 
analysis, operating logs, legal records, bearing records, marine gas turbine equipment service 
records, tag out, electrical safety, online verification, hearing conservation, quality assurance, 
and overall finding grades and comments. TRAINING is a subtype of EXAM and contains 
information on personal qualification standards, key personnel, training program, number of 
satisfactory gas turbine watch stations, steam watch stations, and diesel watch stations, and 
overall grade and comments. LEVEL OF JCNOWLEDGE is a subtype of EXAM and 
contains information on passing percentage for the written, supervisory, and damage control 
examinations. 

The above objects are displayed in the semantic object diagram in Appendix A. The 
object and domain definitions are displayed in the data dictionary in Appendix B. 

The collection of data flow diagrams is displayed in Appendk C. These diagrams 
describe the overall flow of the information in the system. Attributes and functions of the 
PEBDS are listed with the process specifications in Appendix D. 

The PEBDS will have a back up capability utilizing the Microsoft backup application 
installed with Windows 3.1. This will be a menu option on the main menu for the user. The 
database files should be backed up on a weekly basis as a minimum. 

C. PHASE m: EVALUATION 

Evaluation of the PEBDS project was completed and produced two system 
constraints. The first constraint was the hardware the PEBDS had to run on. For efficient 
operation, the minimum hardware requirement is an IBM compatible 486 PC with 4 MB of 
memoiy. This constraint, however, did not pose any significant technological barriers for 
development of the PEBDS. The second constraint was the DBMS software. Since limited 
monetary resources were available, the PEBDS is required to be designed and operated with 
Paradox for Windows Version 4.5 DBMS software already installed on site. An extensive 
review of this DBMS software determined that it satisfied all and possible future requirements 
of the PEBDS. 
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The user’s requirements were fiirther reviewed and it was determined that the 
PEBDS could be completed on time and utilize the current hardware and DBMS software 
available. No additional costs would be necessary unless recommendations for future 
enhancements are desired. 

D. PHASE IV: DESIGN 

The lo^cal database design is centered around the primary object SHIP. The key of 
the SHIP object is (ShipName) and contains one-to-many semantic object attribute links to 
the following objects; 

• EXAM 

• OPERATIONS 

• MATERIAL 

• FIREnGHTING 

• PROGRAM MANAGEMENT 

• TRAINING 

• LEVEL OF KNOWLEDGE 

The minimum cardinality is equal to zero and the maximum cardinality is equal to N. 

The key of the EXAM object is a composite key composed of (ExamEndDate) and 
the semantic object link (SHIP). The cardinality of the semantic object link is one-to-one with 
the minimum and maximum cardinality equal to one. 

The following objects are subtypes of the EXAM object and inherit the same 
composite key and minimum and maximum cardinalities: 

• OPERATIONS 

• MATERIAL 

• FIRE nGHTING 
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• PROGRAM MANAGEMENT 


• TRAINING 

• LEVEL OF KNOWLEDGE 

The above objects and relationships are represented graphically in the Relational 
Diagram, Appendix E and the data definitions in Appendix B. 

The main menu, input forms, and query forms are listed in Appendix F. The 
ObjectPAL source code for the PEBDS is listed in Appendix G and the user’s guide is listed 
in Appendk H. 

E. PHASE V: IMPLEMENTATION 

The PEBDS was implemented in August 1995. The PEBDS was installed on a IBM 
compatible 486 PC. The PEBDS will utilize the current software installed on the PC. The 
PEBDS will use Paradox for Windows Version 4.5 and Windows 3.1. Upgrades to both 
software applications are available but is not within the budgetary considerations for fiscal 
year 1996. If upgrades are procured, the PEBDS will operate without restrictions on 
Paradox for Windows 5.0 and Windows 95 software upgrades. 

A strategy for implementation of the PEBDS was considered and a pilot strategy was 
decided upon. The reason this strategy was chosen was due in part to the incompatibilities 
of the flat file system with the new relational PEBDS . The data in the single table format of 
the current database could not be converted to the new multi table relational PEBDS. 
Therefore, the pilot strategy will enable the users to use the PEBDS for monthly summary 
queries and inputs for the monthly reports to CINCPACFLT and CNO. Until the full 
conversion is complete, the DBA will have to maintain both systems. Full conversion will 
take place in approximately six months when enough records are within the system to 
facilitate the other queries Avithin the PEBDS. The pilot strategy will enable the organization 
to gradually implement the PEBDS to ensure stabiUty and minimize the risk of data loss. 

The input and query screens, and reports were built using Paradox’s screen painter. 
Color, font size, and overall design considerations were easily facilitated with the screen 
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painter and a ergonomical environment was created. Since Paradox for Windows application 
language is object-oriented, it was used to provide links, correlations and relationships 
between each object within the PEBDS. The custom source code used to construct the 
PEBDS is transparent to the user, but is a major reason of why the PEBDS is user friendly. 
All objects within the PEBDS have custom source code embedded and the source code is 
listed in Appendk G. 

Training and familiarization with the PEBDS was held with the DBA. A user’s guide 
was provided to help the DBA and any other PEB staff members to easily navigate through 
the PEBDS and is listed in Appendix H. Since the PEBDS is a menu driven application which 
uses pushbuttons and mouse point and click procedures, lengthy training sessions were not 
required. The DBA received additional training in system installation, troubleshooting, and 
data backup. 

Testing of the PEBDS was done during the implementation phase and throughout the 
entire life cycle of the project. The testing procedures were conducted on sample controlled 
data and stressed the PEBDS beyond what one would expect the users of the PEBDS would 
do. The data was entered and all queries were executed to see if the expected results would 
be given. Modifications to the PEBDS were done to correct the minor inconsistencies found 
throughout the testing procedure. 

Restructuring the PllffiDS to accommodate future enhancements can be accomplished 
with the design feature of Paradox for Windows. The original ^stem files (.db, .fsl, .rsl) were 
provided to the DBA, on two 3.5 inch floppy disks. The design feature for these system files 
was not disabled to allow access to every object within the PEBDS. However, the 
enhancements to the PEBDS will require extensive knowledge of the application language 
objectPAL and Paradox for Windows and should be attempted by only qualified 
programmers. 
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IV. CONCLUSIONS 


The PEBDS is currently installed and is running in accordance with the design 
specifications of the users. It has significantly reduced the time the DBA spends on data entry 
and query processing for the senior members of the PEB. The monthly summary reports can 
now be completed in less than thirty minutes, which includes the printing of the query reports 
and graphs. The PEBDS has increased the productivity of all who use the PEBDS and the 
generation of future enhancements is highly recommended. The users have shown that they 
are satisfied with the system so far and to date the system has achieved the goals that it was 
intended to accomplish. 

The user’s requirements have been met, but as with all new systems, the users can 
now envision new requirements that would be equally beneficial. As the users develop new 
requirements, the object?AL source code can be changed or added to better meet these new 
requirements. Minor changes or additions to the object?AL source code and maintenance 
of the PEBDS can be accomplished by the DBA. If these changes are major however, they 
may be extensive enough to have a following on effort by another thesis student. 

Modifications and upgrades to the office’s infirastructure, hardware and software are 
an ongoing issue for every office environment. The PEBDS is versatile and can operate on 
any software upgrades to Paradox for Windows. If a major change occurs with the 
infrastructure, the PEBDS can accommodate this change to the infirastructure, but will 
require personnel knowledgeable with the PEBDS, Paradox for Windows, and Paradox for 
Windows application language object?AL. 

Although the backup procedures installed with the PEBDS is sufficient and will satisfy 
all backup requirements, the time required to backup on 3.5 inch floppy disks will increase 
as more and more records are introduced into the database. The addition of a backup tape 
drive will fecilitate the back up procedures and provide easy and relatively less painful means 
of restoring the PEBDS data in the event of total data loss. A tape backup will solve this 
problem and would only require minimal additional funds. 
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APPENDIX A. Semantic Object Diagram 


sitip 

ID ShipName 
HullNumber 
PropType 
ISIC 

CO_Name 

XO_Name 

CHENG^Name 

I FireFighting | p 
I LevelOfKnowledg^ P 
I Material | q ^ 

I Training | p,,, 

I ProgramManagement | q |,j 
I Operations | qj,j 
[■ixamjp^ 


ID Operation ID ^ ^ ^ 
%ofSatEvoL1 stSec 
%ofSatEvoL2ndSec 
%ofSatEvoL3rdSec 
%ofSatDrilL1stSec 
%0fSatDrilL2ndSec 
%ofSatDiilI_3rdSec 
NRofSatWatchSec 
EccttGrade 
EccttComments 
OperationGrade 
OperationComments 


15 



ID ExamlD ^ ^ ^ 
PO_Name 
ExamType 
SeniorExName 
OverallFinding 
AdjectiveGrade 
PreviousExamType 
Comments 
PreviousExamGrade 
NextExamDate 
Cleared 



IP MatlD ^ ^ ^ 
ValveMaintGrade 
CSMP^Grade 
GageCalGrade 
MatSelfAssessGrade 
PreservationGrade 
StowageGrade 
CleanlinessGrade 
HighPwrDemoGrade 
HighPwrComments 
10P_Comments 
StandEquipSatisfied? 
TtlNrOfLeveMFlex 
TtlNrOfLevel2Flex 
TtlNrOfLevel3Fiex 
TtlNrOfLeveWFlex 
TtlNrOfLevelSFlex 
TtlNrOfBoilersFlexed 
BoilerFlexComments 
TtlNrOfMajors 
TtlNrOfMinors 
ShipReportDegradations 
PEBJdDegradations 
ShipReportOOC 
PEBJdOOC 
MaterialGrade 
MaterialComments 
















|D PMJD 


LOQM_Grade 


BWFW_Grade 


FOQM_Grade 


DJWTT_Grade 


DETA_Grade 


OpLogsGrade 


LegalRecsGrade 


BearingRecsGrade 


MGTESR_Grade 


TagoutGrade 


ElectSafetyGrade 


HearingConsGrade 


QA__Grade 


OLV_Grade 


ProgramManageGrade 

ProgramComments 






ID TrainingID 


PQS_Grade 


TrainingGrade 


NrOfSatBIrOp 


NrOfSatGenOp 


NrOfSatBTOW/ConsoleOP 

NrOfSatMsgr/EngOp 

NrOfSatMMOW 


NrOfSatENOW 


NrOfSatEDG/SWBD_Op 

NrOfSatEoow 


NrOfSatPACC 


NrOfSatEPCC 


NrOfSatAuxOP 


NrOfSatOilKing 


NrOfSatMEROP 


KeyPersonnelLeaving 

TrainingProgramGrade 

TrainingProgramComments 



ID FireFightinglD 
NrOfDC_Ma]ors 
NrOfDC_Minors 
NrOfRepV_Majors 
NrOfRepV_Minors 
RepVJnventoryGrade 
MSFD_Grade 
SpaceDC_EquipGrade 
DCTT_Grade 
DCTT_Comments 
HalonGrade 
AFFF_Grade 
FireDrill1_Grade 
FireDrill2_Grade 
FireDrill3_Grade 
FireDiillComments 
FireFightingGrade 
FireFightingComments 



ID LOKJD ^ 


%PassWiittenExam 

AvgScoreWritten 

%PassDC_Exam 

AvgScoreDC 

%PassSupExam 

AvgScoreSup 

AvgScoreEM_Sup 
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APPENDIX B. DATA DICTIONARY 


%ofSatDrilMstSec Type: Simple Value 
Profile: Percent 
Contained in: Operations 
Caption: 

Description: The percentage of satisfactory drills in 
the 1st section 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 

Initial Value: 


%0fSatDrilL2ndSec Type: Simple Value 
Profile: Percent 

Contained In: Operations '' 

Caption: 

Description: The percentage of satisfactory drills in 
the 2nd watch section 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 

Initial Value: 


%oreatDrilL3rdSec Type: Simple Value 
Profile: Percent 
Contained in: Operations 
Caption: 

Description: The percentage of satisfactory drills in 
the 3rd watchsection 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 

Initial Value: 


%ofSatEvoM stSec Type: Simple Value 

” Profile: Percent 

Contained in: Operations 
Caption: 

De^ription: The percent of satifactory evolutions In 
the 1st watchsection 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 

Initial Value: 
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%ofSatEvoL3rdSec Type: Simple Value 
Profile: Percent 
Contained in: Operations 
Caption: 

EDescription: The percentage of satisfactory evolutions 
in the 3rd section 
ID Status: None 
Minimum Required; 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 
initial Value: 


%PassDC_Exam Type: Simple Value 

Profile: Percent 

Contained in: LevelOfKnowledge 
Caption: 

Description: The percentage of engineering personnel 
passing the damage control exam 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: ' 

Format: 

Initial Value: 


%PassSupExam Type: Simple Value 

Profile: Percent 

Contained In: LevelOfKnowledge 
Caption: 

Description: The percentage of supervisors passing th 
e supervisory exam 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 

Initial Value: 


%PassWrittenExam Type: Simple Value 
Profile: Percent 

Contained in: LevelOfKnowledge 
Caption: 

Description: The percentage of watchstanders passing 
^e written exam 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Floating Point 
Length: 

Format: 

Initial Value: 


AdjectiveGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Exam 
Caption: 

Description: The descriptive grade for the exam 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format 

initial Value: 
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AFFF_Grade Type: Simple Value 

Profile: PrevlousExamGrade 
Contained in: RreFighting 
Caption: 

Description: The grade on the ship’s AFFF system 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format 

initial Value: 


AvgScoreDC Type: Simple Value 

Profile: Quantity 

Contained in: LevelOfKnowledge 
Caption: 

De^ription: The average score on the damage control 
exam 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format 
initial Value: 


AvgScoreEM_Sup Type: Simple Value 

Profile: Quantity 

Contained in: LevelOfKnowledge 
Caption: 

Description: The average score of the EM supervisory 
exam 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format 
Initial Value: 


AvgScoreSup Type: Simple Value 

Profile: Quantity 

Contained in: LevelOfKnowledge 
Caption: 

Description: The average score on the supervisory exa 
m 

ID Status: None 
Minimum Required: 0 
Majdmum Allowed: 1 
Value Type: Short Integer 
Length: 

Format 
In'ttial Value: 


AvgScoreWritten Type: Simple Value 

Profile: Quantity 

Contained in: LevelOfKnowledge 
Caption: 

Description: The average score for the written exam 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format 
Initial Value: 
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BearingRecsGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained In: ProgramManagement 
Caption: 

Description: The bearing records program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


BoilerFlexComments Type: Simple Value 
Profile: Description 
Contained in: Material 
Caption: 

Description: The comments on the boiler flexes 

ID Status: None 

Minimum Required: 0 

Maximum Allowed; 1 

Value Type: Memo 

Length: 

Format: 

Initial Value: ' 


BWFW_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The boiler water/feed water program grad 
e 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format 
initial Value: 


CHENG_Name Type: Simple Value 

Profile: PersonName 
Contained in: Ship 
Caption: 

Description: The chief engineer's last name 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Text 

Length: 35 

Format 

Initial Value: 


CleanlinessGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Material 
Caption: 

Description: The grade for cleanliness 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 
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Cleared 


Type: Simple Value 
Profile: Cleared 
Contained in: Exam 
Caption: 

Description: This is to check whether a ship’s exam is 
cleared from the database 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 1 
Format: 

Initial Value: Y 


CO_Name Type: Simple Value 

Profile: PersonName 
Contained in: Ship 
Caption: 

Description: The commanding officers last name 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Text 

Length: 35 

Format: 

Initial Value: 


Comments Type: Simple Value 

Profile: Description 
Contained in: Exam 
Caption: 

Description: The comments on the exam overall 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Memo 

Length: 

Format: 

Initial Value: 


CSMP_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Material 
Caption: 

Description: The grade for the consolidated ships main 
tenance plan 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


DCTT_Comments Type: Simple Value 

Profile: D^ription 
Contained in: FireFighting 
Caption: 

Description: The damage control training team comme 
nts 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Memo 
Length: 

Format: 

Initial Value: 
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DCTT-Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained In: FireFighting 
Caption: 

Description: The damage control training team grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


DETA_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The diesel engine trend analysis program 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: ^ 


DJWTT__Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The diesel jacket water test and treatmen 
t program grade 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 
initial Value: 


EccttComments Type: Simple Value 

Profile: Description 
Contained in: Operations 
Caption: 

Description: The comments for the engineering casual 
ty control training team 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Memo 
Length: 

Format: 

Initial Value: 


EccttGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Operations 
Caption: 

IDescription: The grade of the engineering casualty co 
ntrol training team 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 
initial Value: 


22 



ElectSafetyGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The electrical safety program grade 

ID Status: None 

Minimum Required; 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format; 

Initial Value; 


Exam Type: Object Link 

Profile: Exam 
Contained in: Ship 
Caption: 

Description: 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: N (No Limit) 


ExamEndDate Type: Simple Value 

Profile: ExamEndDate 
Contained in: LevelOfKnowledge.LOKJD 
Caption: 

Description: The date the exam ends 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: 


ExamEndDate Type: Simple Value 

Profile: ExamEndDate 
Contained in: Training.TrainlnglD 
Caption: 

Description: The date the exam ends 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: 


ExamEndDate Type: Simple Value 

Profile: ExamEndDate 
Contained in: Material.MatID 
Caption: 

De^ription: The date the exam ends 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: 
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ExamEndDate Type: Simple Value 

Profile; ExamEndDate 

Contained in: ProgramManagementPMJD 

Caption: 

Description: The date the exam ends 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: 


ExamEndDate Type: Simple Value 

Profile: ExamEndDate 
Contained in: Exam.ExamlD 
Caption: 

Description: The date the exam ends 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: ' 


ExamEndDate Type: Simple Value 

Profile: ExamEndEDate 

Contained in: Operations.OperationlD 

Caption: 

Description: The exam end date 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: 


ExamEndDate Type: Simple Value 

Profile: ExamEndDate 
Contained in: FireFighting.FireFightingID 
Caption: 

Description: The date the exam ends 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Date 

Length: 

Format: 

Initial Value: 


ExamlD Type: Group Attributes Contained: Ship 

Profile: ExamlD ExamEndDate 

Contained in: Exam 

Caption: 

Description: 

ID Status: Unique 
Minimum Required: 1 
Maximum Allowed: 1 
Minimum Count: 0 
Maximum Count: ALL 
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ExamTypo Type: Simple Value 

Profile: ExamType 
Contained in: Exam 
Caption: 

Description: The type of Inspection with values of OPP 
E/LOE/REOPPE/RELOE 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


FireDrill1_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: FireFighting 
Caption: 

Description: The grade on fire drill 1 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 

Format: ' 

Initiai Value: 


FireDriII2_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: FireFighting 
Caption: 

Description: The grade on fire drill 2 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


FireDrill3_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: FireFighting 
Caption: 

Description: The grade of fire drill 3 

ID Status: None 

Minimum Required; 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


RreDiillComments Type: Simple Value 

Profile: De^ription 
Contained in: FireFighting 
Caption: 

Description: The comments on all 3 fire drills 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Memo 

Length: 

Format: 

Initial Value: 
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FireFighting Type: Object Link 

Profile: FireFighting 
Contained in: Ship 
Caption: 

Description: 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: N (No Limit) 


FireFightingComments Type: Simple Value 
Profile: Description 
Contained in: FireFighting 
Caption: 

Description: The fire fighting area comments 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Memo 

Length: 

Format: 
initial Value: 


FireFightingGrade Type: Simple Value 

Profile: PreviousExamGrade ^ 
Contained in: FireFighting 
Caption: 

Description: The fire fighting area grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


FireFightingID Type: Group Attributes Contained: Ship 

Profile: RreFightingID ExamEndDate 

Contained in: FireRghting 

Caption: 

De^ription: 

ID Status: Unique 
Minimum Required: 1 
Maximum Allowed: 1 
Minimum Count: 0 
Maximum Count ALL 


FOQM_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The fuel oil quality management program 
grade 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 
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GageCalGrade Type: Simple Value 

Profile; PreviousExamGrade 
Contained in: Materia! 

Caption: 

De^ription: The grade for gage calibrations program 

ID Status: None 

Minimum Required; 0 

Maximum Allowed: 1 

Value Type: Text 

Length; 10 

Format: 

Initial Value: 


HalonGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: FireFighting 
Caption: 

Description: The grade of the Installed halon system 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: ^ 


HearingConsGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The hearing conservation program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format 

initiai Value: 


HighPwrComments Type: Simple Value 
Profile: Description 
Contained in: Material 
Caption: 

Description: The comments on the high power demon 
stration 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Memo 
Length: 

Format 
Initial Value: 


HighPwrDemoGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Material 
Caption: 

Description: The high power demonstration grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format 

Initial Value: 
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HullNumber Type: Simple Value 

Profile: HullNumber 
Contained In: Ship 
Caption: 

Description: 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


IOP_Comments Type: Simple Value 

Profile: Description 
Contained in: Material 
Caption: 

De^ription: The comments for lOP's 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Memo 

Length: 

Format: 

Initial Value; 


ISIC Type: Simple Value 

Profile: ISIC 
Contained in: Ship 
Caption: 

Description: The immediate superior in chain of comm 
and of the ship 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


KeyPersonnelLeaving Type: Simple Value 
Profile: Description 
Contained In: Training 
Caption: 

Description: The names of the key personnel leaving 
v^ing three months of the exam end date 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Memo 
Length: 

Format: 

Initial Value: 


LegalRecsGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The legal records program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 
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LevelOfKnowledge 


Type: Object Link 
Profile: LevelOfKnowledge 
Contained in: Ship 
Caption: 

Description: 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: N (No Limit) 


LOKJD 

Type: Group 

Profile: LOKJD 

Contained in: LevelOfKnowledge 

Caption: 

Description: 

ID Status: Unique 

Minimum Required: 1 

Maximum Allowed: 1 

Minimum Count 0 

Maximum Count ALL 

Attributes Contained: 

Ship 

ExamEndDate 

LOQM^Grade 

Type: Simple Value 

Profile: PreviousExamGrade 

Contained in: ProgramManagement 

Caption: > 




Description: The lube oil quality management program 
grade 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


Material Type: Object Link 

Profile: Material 
Contained in: Ship 
Caption: 

Description: 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: N (No Limit) 


MaterialComments Type: Simple Value 
Profile: Description 
Contained in: Material 
Caption: 

Description: The comments on the materia! area of the 
exam 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Memo 
Length: 

Format 
Initial Value: 


MaterialGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Material 
Caption: 

Description: The grade for the material area of the ex 
am 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format 
Initial Value: 



MatiD 


Attnbutes Contained: 


Type; Group 
Profile: MatID 
Contained in: Material 
Caption: 

Description: 

ID Status; Unique 
Minimum Required: 1 
Maximum Allowed: 1 
Minimum Count; 0 
Maximum Count: ALL 


Ship 

ExamEndDate 


MatSelfAssessGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in; Material 
Caption: 

Description: The grade for material self assessment 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

initial Value: 


MGTESR__Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The marine gas turbine equipment servic 
e record program grade 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


MSFD_Grade Type: Simple Value 

"" Profile: PreviousExamGrade 

Contained In: FireFIghting 
Caption: 

Description: The main space fire doctrine grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


NextExamDate Type: Simple Value 

Profile: EventDate 
Contained in: Exam 
Caption: 

Description: 

ID Status: None 
Minimum Required: 1 
Maximum Allowed: 1 
Value Type: Date 
Length: 

Format: The date the next exam is due 
Initial Value: 
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NrOfDC_Majors Type: Simple Value 

Profile: Quantity 
Contained in: FireFighting 
Caption: 

Description: The total number of damage control major 
s 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 


NrOfDC_Minors Type: Simple Value 

Profile: Quantity 
Contained In: FireFighting 
Caption: 

Description: The number of damage control fninors 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


NrOfRepV^MaJors Type: Simple Value 

Profile: Quantity 
Contained in: FireFighting 
Caption: 

De^ription: The number of repair five majors 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


NrOfRepV_Mlnors Type: Simple Value 

Profile: Quantity 
Contained in: FireFighting 
Caption: 

Description: The number of repair five minors 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format 
Initial Value: 


NrOfSatAuxOP Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory auxiliary oper 
ators 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 
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NrOfSatBliOp Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

De^ription: Number of satisfactory boiler operators 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


NrOfSatBTOW/ConsoleOPType: Simple Value 
Profile: Quantity 
Contained In: Training 
Caption: 

Description: The number of satisfactory boiler technic 
ians/Console operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: ' 

In’rtial Value: 


NrOfSatEDG/SWBD_Op Type: Simple Value 
Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory emergency die 
sel/switchboard operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 
initial Value: 


NrOfSatENOW Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory emergency die 
sel generator/switchboard operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 


NrOfSatEoow Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

De^ription: The number of satisfactory engineering of 
fleers of the watch 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 
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NrOfSatEPCC Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of electrical plant control co 
nsole operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 


NrOfSatGenOp Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory generator oper 
ators 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: ^ 

Format: 

Initial Value: 


NrOfSatMEROP Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory of main engine 
room operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 


NrOfSatMMOW Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

De^ription: The number of satisfactory messengers of 
^e watch 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format 
Initial Value: 


NrOfSatMsgr/EngOp Type: Simple Value 
Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory messenger/en 
gine operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 
in'ttial Value: 
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NrOfSatOilKing Type: Simple Value 

Profile: Quantity 
Contained in: Training 
Caption: 

Description: The number of satisfactory oil kings 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 
initial Value: 


NrOfSatPACC Type: Simple Value 

Profile: Quantity 
Contained In: Training 
Caption: 

Description: The number of satisfactory propulsion aux 
iliary control console operators 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: n 

Initial Value: 


NRofSatWatchSec Type: Simple Value 

Profile: Identifier-Numeric 
Contained in: Operations 
Caption: 

Description: Total number of satisfactory watch sectio 
ns 

ID Status: None 
Minimum Required: 1 
Maximum Allowed: 1 
Value Type: Long Integer 
Length: 

Format: 

Initial Value: 


OLV_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagcment 
Caption: 

Description: The online verification program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


OperationComments Type: Simple Value 
Profile: Description 
Contained in: Operations 
Caption: 

Description: The comments for the operation area of th 
eexam 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Memo 
Length: 

Format: 

Initial Value: 
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OperationGfade Type: Simple Value 

Profile: PrevlousExamGrade 
Contained In: Operations 
Caption: 

De^ription: The grade for operations area of the exam 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


OperationID 

Type: Group 

Profile: OperationID 

Contained in: Operations 

Caption: 

Description: 

ID Status: Unique 

Minimum Required: 1 

Maximum Allowed: 1 

Minimum Count: 0 

Maximum Count: ALL 

Attributes Contained: 

Ship 

ExamEndDate 

Operations 

Type: Object Link 

Profile: Operations 

Contained in: Ship 

Caption: 

Description: 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: N (No Limit) 



OpLogsGrade 

Type: Simple Value 

Profile: PreviousExamGrade 

Contained in: ProgramManagement 

Caption: 

Description: The operation logs program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format 

Initial Value: 



OverallFInding 

Type: Simple Value 

Profile: PreviousExamGrade 

Contained in: Exam 

Caption: 

De^ription: The overall grade for the exam 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 
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PEBJdDegradations Type: Simple Value 
Profile: Quantity 
Contained In: Material 
Caption: 

Description: Total number of equipment degradations f 
ound by the propulsion examining board 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 


PEBJdOCX) Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: The number of out of commission equipm 
ent found by the propulsion examining board 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: ' 

Format: 

Initial Value: 


PMJD 

Type: Group 

Attributes Contained: 

Ship 


Profile: PMJD 


ExamEndDate 


Contained In: ProgramManagement 

Caption: 

Description: 

ID Status: Unique 

Minimum Required: 1 

Maximum Allowed: 1 




Minimum Count: 0 

Maximum Count: ALL 




PO_Name Type: Simple Value 

Profile: PO_Name 
Contained in: Exam 
Caption: 

Description: The name of the project officer conductin 
g the exam 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


PQS_Grade Type: Simple Value 

Profile: PreviousExamGrade 
Contained In: Training 
Caption: 

Description: The personal qualifications standard grad 
e 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 
initial Value: 
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PreservationGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Material 
Caption: 

Description: The preservation of equipment grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value; 


PreviousExamGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Exam 
Caption: 

Description: The grade of the previous exam 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


PreviousExamType Type: Simple Value 

Profile: PreviousExamType 
Contained in: Exam 
Caption: 

Description: The previous exam type the ship had 

ID Status; None 

Minimum Required; 0 

Ma)dmum Allowed: 1 

Value Type: Text 

Length: 6 

Format 

initial Value: 


ProgramComments Type: Simple Value 
Profile: Description 
Contained in: ProgramManagement 
Caption: 

Description: The program management comments 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Memo 

Length: 

Format 
Initial Value: 


ProgramManageGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption; 

Description: The program managment grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 
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ProgramManagement Type: Object Link 

Profile: ProgramManagement 
Contained in: Ship 
Caption: 

Description: 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: N (No Limit) 


PropType Type: Simple Value 

Profile: PO_Name 
Contained in: Ship 
Caption: 

Description: The propulsion type of the ship. 

Values are Gas Turbine, Diesel, or Steam 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


QA_Grade Type: Simple Value ^ 

Profile: PreviousExamGrade 
Contained in: ProgramManagement 
Caption: 

Description: The quality assurance program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


RepVJnventoryGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: FireFighting 
Caption: 

Description: The grade of the repair five inventory 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: 


SeniorExName Type: Simple Value 

Profile: PO_Name 
Contained in: Exam 
Caption: 

Description: The name of the senior member of the PE 
Bteam 

ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 
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Ship 

Type: Object Link 

Profile: Ship 

Contained in: Material.MatlD 

Caption: 

Description: 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Ship 

Type: Object Link 

Profile: Ship 

Contained in: Operations.OperalionID 

Caption: 

Description: 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Ship 

Type: Object Link 

Profile: Ship 

Contained in: ProgramManagement.PMJD 

Caption: 

Description: 

ID Status: None ^ 

Minimum Required: 1 

Maximum Allowed: 1 

Ship 

Type: Object Link 

Profile: Ship 

Contained in: Exam.ExamID 

Caption: 

Description: 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Ship 

Type: Object Link 

Profile: Ship 

Contained in: LevelOfKnowledge.LOKJD 

Caption: 

Description: 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Ship 

Type: Object Link 

Profile: Ship 

Contained in: FireFighting.FireFIghtinglD 

Caption: 

Description: 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Ship 

Type: Object Link 

Profile: Ship 

Contained in: TrainingTraininglD 

Caption: 

Description: 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 
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ShipName Type: Simple Value 

Profile: ShipName 
Contained in: Ship 
Caption: 

Description: 

ID Status: Unique 
Minimum Required: 1 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


ShipReportDegradations Type: Simple Value 
Profile: Quantity 
Contained in: Material 
Caption: 

Description: The number of equipment degradations r 
eported by the ship 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: > 

Initial Value: 


ShipReportOOC Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: The number of out of commission equipm 
ent reported by the ship 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Short Integer 
Length: 

Format: 

Initial Value: 


SpaceDC_EquipGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained In: FireFighting 
Caption: 

Description: The grade on the in space damage contro 
I equipment 
ID Status: None 
Minimum Required: 0 
Maximum Allowed: 1 
Value Type: Text 
Length: 10 
Format: 

Initial Value: 


StandEquipSatisfied? Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Material 
Caption: 

Description: Is standard equipment satisfied 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 1 

Format: 

Initial Value: 
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StowageGrade 

Type: Simple Value 

Profile: PreviousExamGrade 

Contained in: Material 

Caption: 

Description: The grade for stowage 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value; 



TagoutGrade 

Type: Simple Value 

Profile: PreviousExamGrade 

Contained in: ProgramManagement 

Caption: 

Description: The tagout program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

initial Value; n 



Training 

Type: Object Link 

Profile: Training 

Contained in: Ship 

Caption: 

Description: 

ID Status: None 

Minimum Required; 0 

Maximum Allowed: N (No Limit) 



TrainingGrade 

Type: Simple Value 

Profile: PreviousExamGrade 

Contained in: Training 

Caption: 

Description: The training program grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value; 



TrainingiD 

Type: Group 

Profile: TrainingiD 

Contained in: Training 

Caption: 

Description: 

ID Status: Unique 

Minimum Required: 1 

Maximum Allowed: 1 

Minimum Count: 0 

Maximum Count ALL 

Attributes Contained: 

Ship 

ExamEndDate 
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TrainingProgramCommentType: Simple Value 
s Profile: Description 

Contained in: Training 
Caption: 

Description: The training program area comments 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Memo 

Length: 

Format: 

Initial Value: 


TrainingProgramGrade Type: Simple Value 

Profile: PreviousExamGrade 
Contained in: Training 
Caption: 

Description: The training program area grade 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

Initial Value: ^ 


TtlNrOfBoilersFlexed Type: Simple Value 
Profile: Quantity 
Contained in: Material 
Caption: 

Description: The total number of boiler flexes 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


TtINrOfLevell Rex Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: Total number of boiler flexes to level 1 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


TtlNrOfLevel2Flex Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: The total number of boiler flexes to level 2 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 
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TtINrOfLevel3Flex Type: Simple Value 

Profile: Quantity 
Contained In: Materia! 

Caption: 

Description: The total number of boiler flexes to level 3 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


TtINrOfLeveMFiex Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: The total number of boiler flexes to level 4 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


TtlNrOfLevelSFlex Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: The total number of boiler flexes to level 5 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 
initial Value: 


TtlNrOfMajors Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

Description: The total number of majors 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 

Initial Value: 


TtlNrOfMinors Type: Simple Value 

Profile: Quantity 
Contained in: Material 
Caption: 

De^ription: the total number of minors 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Short Integer 

Length: 

Format: 
initial Value: 
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ValveMaintGrade 


Type: Simple Value 
Profile: PreviousExamGrade 
Contained In: Material 
Caption: 

Description: The grade for valve maintenance 

ID Status: None 

Minimum Required: 0 

Maximum Allowed: 1 

Value Type: Text 

Length: 10 

Format: 

initial Value: 


XO_Name Type: Simple Value 

Profile: PersonName 
Contained In: Ship 
Caption: 

Description: The executive officer's last name 

ID Status: None 

Minimum Required: 1 

Maximum Allowed: 1 

Value Type: Text 

Length: 35 

Format: 

Initial Value: ^ 
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APPENDIX D. PROCESS SPECIFICATIONS 


A. REPORTS 

1. Produce CNO Monthly Report (I.IP) 

BEGIN 

Run monthly summary of activity query 
Display report 
Print report 

END 

2. Produce CINCPACFLT Monthly Report (1.2P) 

BEGIN 

Run monthly summary of activity query 

Run ships with special situations query 

Run twelve month OPPE cumulative trend query 

Display report 

Print report 

END 

B. QUERIES 

1. Produce 12 Month OPPE Cumulative Trend Query (2.1P) 

BEGIN 

n=l 

FOR n=l to 12 

Get start date of period from user 
Get end date of period from user 

Percentage=number of satisfactory exams/total number of 
exams 

FROM start date to end date 

Get number of satisfactory exams 
Get total number of exams 
Display percentage 

END 

n=n+l 
END LOOP 

END 

2. Produce Ship With Special Situations Query (2.2P) 

BEGIN 

Get start date of period from user 
Get end date of period from user 
FROM start date to end date 
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Get overall finding 
Get next exam date 
Get exam comments 
Get ship name 
Display over all finding 
Display next exam date 
Display exam comments 
Display ship name 

END 

END 

3. Produce Monthly Summary of Activity Query (2.3P) 

BEGIN 

Get start date of period from user 

Get end date of period from user 

FROM start date to end date 
Get ship name 
Get overall finding 
Get exam comments 
Get exam end date 
Display ship name 
Display overall finding 
Display exam end date 
Display exam comments 

END 

END 

4. Produce High Power Demo Query (2.4P) 

BEGIN 

Get start date of period from user 

Get end date of period from user 

FROM start date to end date 

Get high power demo grade 
Get high power demo comments 
Get ship name 
Get propulsion type 
Display high power demo grade 
Display high power demo comments 
Display ship name 
Display propulsion type 

END 

END 

5. Produce Unsat Program Query (2.5P) 

BEGIN 
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Get start date of period from user 
Get end date of period from user 
FROM start date to end date 
Get program grade 
Get exam type 
Get exam end date 
Get ship name 
Get propulsion type 
Display program grade 
Display exam type 
Display exam end date 
Display ship name 
Display propulsion type 

END 

END 

6. Produce Pacific Fleet OPPE Summaiy Query (2.6P) 
BEGIN 

Get start date of period from user 
Get end date of period from user 
FROM start date to end date 
Get overall finding 
Get program grade 
Get level of knowledge grade 
Get material grade 
Get operations grade 
Get fire fighting grade 
Get ship name 
Get propulsion type 
Display overall finding grade 
Display program grade 
Display level of knowledge grade 
Display material grade 
Display operations grade 
Display fire fighting grade 
Display ship name 
Display propulsion type 

END 

END 

7. Produce Task and Drill Summary Query (2.7P) 
BEGIN 

Get start date of period 
end date of period 
FROM start date to end date 
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Get number of drills 
Get number of tasks 
Get shipname 
Get propulsion type 
Display number of drills 
Display number of tasks 
Display shipname 
Display propulsion type 

END 

END 

8. Produce Fire Fighting Query (2.8P) 
BEGIN 

Get start date of period 

Get end date of period 

FROM start date to end date 
Get fire fighting grade 
Get fire fighting comments 
Get propulsion type 
Get ship name 
Get exam type 
Display fire fighting grade 
Display fire fighting comments 
Display propulsion type 
Display ship name 
Display exam type 

END 

END 

9. Produce Boiler Flex Query (2.9P) 

BEGIN 

Get start date of period 

Get end date of period 

FROM start date do end date 
Get shipname 
Get propulsion type 
Get flex levels 
Get total flexes 
Get flex comments 
Display shipname 
Display propulsion type 
Display flex levels 
Display total flexes 
Display flex comments 

END 
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END 

C. EXAM 

1. Get Exam Update (3.1.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Exam (3.1.2P) 

BEGIN 

Get new exam information 
Store in Exam data store 

END 

3. Change Exam (3.1.3P) 

BEGIN 

Get desired exam information 
Change exam information 
Store in Exam data store 

END 

4. Delete Exam (3.1.4P) 

BEGIN 

Get desired exam information 
Delete exam information 

END 

D. MATERIAL 

1. Get Material Update (3.2.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Material (3.2.2P) 

BEGIN 

Get new material information 
Store in Material data store 

END 

3. Change Material (3.2.3P) 

BEGIN 

Get desired material information 
Change material information 
Store in Material data store 

END 
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4. Delete Material (3.2.4P) 

BEGIN 

Get desired material information 
Delete material information 

END 

E. FIRE FIGHTING 

1. Get Fire Fighting Update (3.3.1P) 
BEGIN 

Get user selection 
Process user selection 

END 

2. Add Fire Fighting (3.3.2P) 

BEGIN 

Get new fire fighting information 
Store in Fire Fighting data store 

END 

3. Change Fire Fighting (3.3.3P) 

BEGIN 

Get desired fire fighting information 
Change fire fighting information 
Store in Fire Fighting data store 

END 

4. Delete Fire Fighting (3.3.4P) 

BEGIN 

Get desired material information 
Delete material information 

END 

F. OPERATIONS 

1. Get Operations Update (3.4.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Operations (3.4.2P) 

BEGIN 

Get new operations information 
Store in Operations data store 

END 

3. Change Operations (3.4.3P) 

BEGIN 

Get desired operations information 
Change operations information 
Store in Operations data store 
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END 

4. Delete Operations (3.4.4P) 

BEGIN 

Get desired operations information 
Delete operations information 

END 

G. PROGRAM MANAGEMENT 

1. Get Program Management Update (3.5.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Program Management (3.5.2P) 

BEGIN 

Get new program management information 
Store in Program Management data store 

END 

3. Change Program Management (3.5.3P) 

BEGIN 

Get desired program management information 
Change program management information 
Store in Program Management data store 

END 

4. Delete Program Management (3.5.4P) 

BEGIN 

Get desired program management information 
Delete program management information 

END 

H. LEVEL OF KNOWLEDGE 

1. Get Level of Knowledge Update (3.6.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Level of Knowledge (3.6.2P) 

BEGIN 

Get new program management information 
Store in Program Management data store 

END 

3. Change Level of Knowledge (3.6.3P) 

BEGIN 

Get desired level of knowledge information 
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Change level of knowledge information 
Store in Level of Knowledge data store 

END 

4. Delete Level of Knowledge (3.6.4P) 

BEGIN 

Get desired level of knowledge information 
Delete level of knowledge information 

END 

I. TRAINING 

1. Get Training Update (3.7.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Training (3.7.2P) 

BEGIN 

Get new training information 
Store in Training data store 

END 

3. Change Training (3.7.3P) 

BEGIN 

Get desired training information 
Change training information 
Store in Training data store 

END 

4. Delete Training (3.7.4P) 

BEGIN 

Get desired training information 
Delete training information 

END 

J. SHIP 

1. Get Ship Update (3.8.1P) 

BEGIN 

Get user selection 
Process user selection 

END 

2. Add Ship (3.8.2P) 

BEGIN 

Get new ship information 
Store in Ship data store 

END 
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3. Change Ship (3.8.3P) 

BEGIN 

Get desired ship information 
Change ship information 
Store in Ship data store 

END 

4. Delete Ship (3.8.4P) 

BEGIN 

Get desired ship information 
Delete ship information 

END 
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APPENDIX E. RELATIONAL DIAGRAM 
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APPENDIX F. INPUT AND QUERY FORMS 



Figure [1] Main Menu 


















































































































































































































Figure [4] Fire Fighting Input Form 
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Database Management System - [Material input Form] 


Record Quit 




Material 
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Figure [5] Material Input Form 


Database Management System ~ {Operations Input Form] 




































































































































































































































































































































































































































































































Figure [8] Training Input Form 
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Figure [11] Boiler Flex Query 



Figure [12] Fire Drill Percentage Query 











































































































































































































































































































































































Figure [13] High Power Demo Percentage Query 



Figure [14] OPPE/LOE Area Percentage Query 




























































































































































































































































































































































































Figure [16] Evolution/Drill Set Percentage Query 





























































































































































































































































































































































































































Database Management System ~ [Twelve Month QPPE Cumulative Trend] 


Print Quit Help 


NiontEOPPBi Cumulative Trend 



Figure [17] Twelve Month OPPE Cummulative Trend Query 



Figure [18] OPPE/LOE Monthly Summary 
of Activity Query 
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Database Management System - [Ships with special situations] 


Quit Help 



Figure [19] Ships With Special Situations Queiy 
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APPENDIX G. OBJECTPAL SOURCE CODE 


Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


MENU 

open 

method open(var eventinfo Event) 
if eventlnfo-isPreFilterO 
then 

; This code executes for each object on the form. 

eise 

; This code executes oniy for the form. 

hideO 

hideSpeedBarO 

endif 

endmethod 


MENU 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
AddPop PopUpMenu 
inquiryPoP PopUpMenu 
endVar 

if eventinfo.isPreFilterO 
then 

; This code executes for each object on the form. 


eise 

: This code executes only for the form. 


AddPop.addT ext("&Ship") 

Add Pop.addT extf&Exam") 
AddPop.addTextC'&Fire Fighting") 
AddPop.addTextf&Level Of Knowledge") 
AddPop.addT extC'&Material") 

AddPop.addT extf&Operations") 
AddPop.addT extf&Program Management") 
AddPop.addT ext("&T raining") 

InquiryPop.addTextC’&Boiler Flexes") 
InquiryPop.addT ext("&ECCTT") 
InquiryPop.addTextC'&Fire Drills") 
lnquiryPop.addText("&High Power Demos") 
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InquiryPop.addTextf&OPPE/LOE Area Summary") 
InquiryPop.addTextf&Program Statistics") 
lnquiryPop.addText("&Monthly OPPE/LOE Summary") 
InquiryPop.addTextf AEvolutions and Drills") 
InquiryPop.addTextf&Ships With Special Situations") 
InquiryPop.addTextf&Twelve Month OPPE Cumulative Trend") 

examMenu.addPopUpC'&Add", AddPop) 

examMenu.addPopUpC'&Inquiry", InquiryPop) 

examMenu.addT extf&Quit") 

examMenu.addTextf&Back Up") 

maximizeO 

examMenu.showO 

endif 

endmethod 


MENU 

depart 

method depart(var eventinfo MoveEvent) 
var 

form1 form 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

;exitO 

endif 

endmethod 


MENU 

menuAction 

method menuAction{var eventinfo MenuEvent) 


var 


form1 

form 

form2 

form 

forms 

form 

form4 

form 

forms 

form 

forms 

form 

form? 

form 
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reply string 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Exam": 
form1 .openf Exam") 
case eventInfo.menuChoiceO ="&Ship''; 

formi .openC'Ship") 

case eventInfo.menuChoiceO ="&Fire Fighting": 
form2.openC'FireFigh") 

case eventInfo.menuChoiceO ="&Level Of Knowledge": 
formS.openC’LOK") 

case eventInfo.menuChoiceO ="&Material": 
form4.openC'Material") 

case eventInfo.menuChoiceO ="&Operations": 
formS.openfOperaton") 

case eventInfo.menuChoiceO ="&Program Management": 

forme.openfProgMan") 
case eventInfo.menuChoiceO *"&Trainlng": 
formT.openf Train") 

case eventInfo.menuChoiceO ="&Boiler Flexes": 

formi .openfBoilFlex") 
case eventInfo.menuChoiceO ="&Fire Drills": 
form2.openC’FireDril") 

case eventInfo.menuChoiceO ="&High Power Demos": 
form3.open("HighPwr") 

case eventInfo.menuChoiceO ="&OPPE/LOE Area Summary": 
form4.open("OPPESum") 

case eventInfo.menuChoiceO ="&Program Statistics": 
forms .openC'ProgStat") 

case eventInfo.menuChoiceO ="&Monthly OPPE/LOE Summary": 
forme.openC'Summary") 

case eventInfo.menuChoiceO ="&Evolutions and Drills": 

form7.openCTaskDril") 
case eventInfo.menuChoiceO ="&ECCTr': 
forme.openC'ECCTTAVG") 

case eventInfo.menuChoiceO ="&Ships With Special Situations": 
formi .openC'Unsat") 

case eventInfo.menuChoiceO *"&Twelve Month OPPE Cumulative Trend": 

formS.openC'CumTrend”) 
case eventInfo.menuChoiceO ="&Quit": 

reply=msgQuestion("Qult","Are you sure you want to leave the CINCPACFLT PEB Database?") 
If reply = "Yes" then 
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closeO 

else 

return 

endlf 

case eventInfo.menuChoiceO ="&Back Up": 
executeC'mwbackup") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu Menu 
AddPop PopUpMenu 
InquiryPoP PopUpMenu 
endVar 

AddPop.addTextf&Ship") 

AddPop.addTextC'&Exam”) 

AddPop.addTextC'&Fire Fighting") 

AddPop.addText("&Level Of Knowledge") 

AddPop.addT ext("&Material") 

AddPop.addText("&Operations") 

AddPop.addTextC'&Program Management") 

AddPop.addT ext("&T raining") 

InquiryPop.addTextr&Boiler Flexes") 
InquiryPop.addTextC'&ECCTT") 

InquiryPop.addTextC'&Fire Drills") 
lnquiryPop.addText("&High Power Demos") 
lnquiryPop.addText("&OPPE/LOE Area Summary") 
InquiryPop.addTextC'&Program Statistics") 
InquiryPop.addText^&Monthly OPPE/LOE Summary") 
InquiryPop.addTextC'&Evolutions and Drills") 
InquiryPop.addTextf&Ships With Special Situations") 
InquiryPop.addTextf&Twelve Month OPPE Cumulative Trend") 

examMenu .addPopUpC'&Add", AddPop) 
examMenu.addPopUpC&Inquiry", InquiryPop) 
examMenu.addT ext("&Quit") 
examMenu.addTextC&Back Up") 

maximizeO 
examMenu .showO 
endmethod 
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SHIPJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventlnfojsPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

AddPop.addT extC'&Locate") 

AddPop.addT extf&Delete") 

examMenu.addPopUpC&Record”, AddPop) 

examMenu.addTextf&Quif) 

examMenu.addT ext("&Help") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


SHIPJNPUT_FORM 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 


else 

: This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Locate'': 
action(DataSearch) 

case eventInfo.menuChoiceO ="&Delete": 

if ’Yes"=msgQuestionC'Delete Record" "Are you sure you want to delete "+ShipName+"?") then 
deleteRecordO 
endif 

case eventInfo.menuChoiceO ="&Help": 
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case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestion("Quit",''Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box27.INSERT_NEW_SHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box27.PropType 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice! String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 
choice! ="GT" 
choice2="DSL" 
choice3=”STM" 
tempValue=self.value 
doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.nev\A/alueO=choice!: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
othenwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either GT, DSL, or STM") 
eventinfo .setErrorCode(-!) 
endSwitch 
endlf 

endmethod 
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EXAMJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventlnfoJsPreFilterO 
then 

; This code executes for each object on the form, 
else 

; This code executes only for the form. 

AddPop.addT ext("&Locate") 

AddPop.addT extC'&Delete") 

examMenu.addPopUpC’&Record”, AddPop) 

examMenu.addTextC'&Quit") 

examMenu.addTextr&Help") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

editO 

action(datalnsertRecord) 

endif 

endmethod 


EXAM_INPUT_FORM 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventlnfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Svfltch 

case eventInfo.menuChoiceO ="&Locate"; 
action(DataSearch) 

case eventInfo.menuChoiceO =''&Delete": 
if "Yes"=msgQuestionC'Delete Record","Are you sure you want to delete 
"+ExamlD_Ship_ShipName_FK2+"?") then 

deleteRecordO 

endif 

case eventInfo.menuChoiceO ="&Help": 
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case eventlnfo.menuChoiceO =''&Quit"; 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2.#Box40.Cleared 

arrive 

method arrive(var eventinfo MoveEvent) 

if seIf.isBIankO then 

switch 

case overaiiFinding="UNS": 
self.value="N" 
case overaiiFinding="DEC": 
self.value="N" 
case overailFinding="INC": 
self.value="N" 
otherwise: 
self.value='T’ 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.AdjectiveGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempVaiue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel =”EXC" 

choice2="GOOD" 

choice3="SAT" 

choice4="SAT(C)" 

choice5="UNS” 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventinfo.newValueO=choice1: 
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case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT , SAT(C), UNS") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.OverallFinding 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel="SAT" 

choice2="UNS" 

choice3="DEC" 

choice4="INC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
otherwise: 

self.value=tempValue 

msgStopC'Problem",'Value must be either UNS, SAT, DEC or INC") 
eventinfo .setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.ExamType 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
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choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice! ="OPPE" 
choice2=''REOPPE" 
choice3="LOE" 
choice4="RELOE" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value must be either OPPE, REOPPE, LOE, or RELOE") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box40.ExamlD_ExamEndDate 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventinfo.errorCodeO=0 then 
if eventInfo.newValueO > todayO then 
Self.value=tempValue 

msgStopC'Problem","ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box39.INSERT_NEW_EXAM_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 
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#Page2.#Box39.HullNumber 

arrive 

method arrive(var eventinfo MoveEvent) 
disableDefault 

moveTo("ExamlD_ExamEndDate") 

endmethod 


#Page2.#Box39.PropType 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choice3 String 
choice4 String 
choices String 
endVar 
choicel ="GT" 
choice2="DSL" 
choice3="STM" 
tempValue=self.value 
doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3; 
othen/vise; 

self.value=tempValue 

msgStopC'Problem","Value must be either GT, DSL, or STM") 
eventi nfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box39.ExamlD_Ship_ShipName_FK2 

changeValue 

method changeValue(var eventinfo ValueEvent) 
doDefault 

if eventInfo.errorCodeO = 0 then 
;input accepted by Paradox 
else 

msgStopC'Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 
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FIREFIGHTINGJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

AddPop.addT ext("&Locate") 

AddPop.addText("&Delete") 

examMenu.addPopUpC'&Record", AddPop) 

examMenu.addT ext("&Quit”) 

examMenu.addTextC’&Help") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


FIREFIGHTINGJNPUT_FORM 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Locate'': 
action(DataSearch) 

case eventInfo.menuChoiceO ="&Delete": 
if "Yes"=msgQuestionC'Delete Record”,"Are you sure you want to delete 
"+FireFig_Ship_ShipName_FK5+"?") then 
deleteRecordO 
endif 

case eventInfo.menuChoiceO ="&Help": 
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case eventlnfo.menuChoiceO ="&Quit": 
reply=msgQuestionC'Quit'',"Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 

else 

return 

endif 

endSwitch 

endif 

endmethod 


#Page2.#Box83.FireFightingGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice? String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

temp\/alue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newVaiueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newA/alueO=choice3: 
case eventlnfo.newA/alueO=choice4: 
case eventlnfo.newValueO=choice5: 
othenwise: 

self.value=tempValue 

msgStop("Problem","Value must be either SAT, LINS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endif 

endmethod 


#Page2.#Box81 .FireDrilI3_Grade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
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var 

tempValue anyType 
choice 1 String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice! ="SAr' 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopCProblem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box81 .FireDrill2_Grade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice! String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice! ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choiceS="EXC" 

tempValue=self.value 

doDefault 
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if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem",’Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box81 .FireDrill1_Grade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice! String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice! ="SAT" 

choice2="UNS" 

choice3=”NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice!: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
caseeventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem",'Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-!) 
endSwitch 
endlf 

endmethod 


#Page2.#Box82.DCTT_Grade 
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method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel =''SAr 

choice2="UNS" 

choice3="NA'' 

choice4="GOOD'' 

choice5=”EXC" 


tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4; 
case eventlnfo.newValueO=choice5; 
otherwise: 

self.value=tempValue 

msgStopC'Problem",'Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box79.SpaceDC_EquipGrade 

ChangeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS” 

choice3="NA" 

choice4="GOOD'’ 

choiceS="EXC" 
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tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newVaIueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.new\/alue0=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Probiem","Value must be either SAT, DNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box79.AFFF_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice 1 String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice1="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC” 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either SAT, UNS, GOOD. EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 
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#Page2.#Box79.HalonGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice 1 String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice1="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 


tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newVaiueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempVaiue 

msgStop("Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventinfo.setErrorCode(-1) 
endSwitch 
endif 

endmethod 


#Page2.#Box79.MSFD_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 
choice2="UNS" 
choice3="NA" 

98 




Object: 
MethodName: 
Source: 


choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.new\/alue0=choice5: 
otherwise: 

self .val ue=tempVal ue 

msgStopC'Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box79.RepV_lnventoryGrade 

changeValue 

method changeValue(var eventinfo VaiueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem”,''Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
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#Page2.#Box79.FireFightingl_ExamEndDate 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
if eventInfo.newValueO > todayO then 
Self.value==tempValue 

msgStop("Problem",''ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box78.INSERT_NEW_FF_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box78.HullNumber 

arrive 

method arrive(var eventinfo MoveEvent) 
disableDefault 

moveTo("FireFightingl_ExamEndDate") 

endmethod 


#Page2.#Box78.FireFig_Ship_ShipName_FK5 

changeValue 

method changeValue(var eventinfo ValueEvent) 
doDefault 

if eventInfo.errorCodeO = 0 then 
;input accepted by Paradox 
0ls@ 

msgStopC'Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 
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MethodName 
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LOKJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventlnfoJsPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

AddPop.addTextf&Locate") 

AddPop.addT extC&Delete") 

examMenu.addPopUpC'&Record", AddPop) 

examMenu.addTextC'&Quit”) 

examMenu.addTextf&Help") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


LOKJNPUT_FORM 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventInfo.isPreFilterO 
then 

: This code executes for each object on the form. 


else 

; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ='’&Locate": 
action(DataSearch) 

case eventInfo.menuChoiceO ="&Delete": 
if "Yes"=msgQuestion("Delete Record","Are you sure you want to delete 
"+LOK_ID_Ship_ShlpName_FK1 +"?") then 
deleteRecordO 
endif 

case eventInfo.menuChoiceO ="&Help": 
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case eventInfo.menuChoiceO =''&Quit": 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
if reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2.#Box13.LOK_ID_ExamEndDate 
changeValue 

method changeValue(var eventinfo VaiueEvent) 
var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
if eventInfo.newValueO > todayO then 
Self.value=tempValue 

msgStop("Problem","ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box12.LOK_ID_Ship_ShipName_FK1 

changeValue 

method changeValue(var eventinfo VaiueEvent) 
doDefault 

if eventInfo.errorCodeO = 0 then 
;input accepted by Paradox 
else 

msgStopC'Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 


#Page2.#Box12.INSERT_NEW_LOK_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 
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MethodName: arrive 


Source: 


method arrive(var eventinfo MoveEvent) 
disableDefault 

moveTo("LOKJD_ExamEndDate") 

endmethod 
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Object: 
MethodName: 
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MATERIALJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form, 
else 

; This code executes only for the form. 

AddPop.addT ext("&Locate") 

AddPop.addText("&Delete") 
examMenu.addPopUpC'&Record”, AddPop) 
examMenu .addText("&Quit") 
examMenu.addT extC'&Help") 

examMenu.sho\wO 
maximizeO 
hideSpeedBarO 
editO 

action (Datal nsertRecord) 
endif 

endmethod 


MATERIALJNPUT_FORM 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Switch 

case eventlnfo.menuChoiceO =''&Locate": 
action(DataSearch) 

case eventlnfo.menuChoiceO =s''&Delete”; 
if "Yes'-msgQuesf on("Delete Record","Are you sure you want to delete 
"+MatlD_Ship_ShipName_FK4+"?")then 
deleteRecordO 
endif 

case eventlnfo.menuChoiceO ="&Help"; 
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case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestionC'Quit'',"Are you sure you want to leave this form?") 
if reply = "Yes" then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box109.MaterialGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicet String 
choice? String 
choices String 
choice4 String 
choices String 
endVar 

choicet ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempVaiue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
caseeventlnfo.newValueO=choice3; 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise; 

self.value=temp\/alue 

msgStopC'Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSvritch 
endlf 

endmethod 


#Page2.#Box108.MatlD_ExamEndDate 
: ChangeValue 


Source: 


method changeValue(var eventinfo ValueEvent) 
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var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
if eventInfo.newValueO > todayO then 
Self.value=tempValue 

msgStop("Probiem",”ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box108.StandEquipSatisfied_ 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel 

choice2="N" 


tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO*0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newVaiueO=choice2: 
otherwise: 

self.value=tempValue 

msgStopC'Probiem","Value must be either Y or N") 
eventinfo .setErrorCode(-1) 
endS\witch 
endlf 

endmethod 


#Page2.#Box107.TtlNrOfBoilersFlexed 


arrive 


method arrive(var eventinfo MoveEvent) 

TtlNrOfBoilersFlexed.value=TtlNrOfLevel1Fiex+TtlNrOfLevel2Flex+TtlNrOfLevel3Flex+ 

TtlNrOfLevel4Flex+TtlNrOfLevel5Flex 

endmethod 
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Object: 
MethodName 
Source: 


#Page2.#Box106.MatSelfAssessGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.vaiue 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newVaIueO=choice1: 
case eventinfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4; 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value^tempValue 

msgStopC’Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box106.IOP_Comments 
: action 

method action(var eventinfo ActionEvent) 

Switch 

case propType.vaiue="GT": 
if eventlnfo.idO=fieldForward then 
disableDefault 
materialGrade.moveToO 
endlf 

case propType.value="DSL": 
if eventlnfo.idO=fleldForward then 
disableDefault 
materialGrade.moveT oQ 
endlf 

endSwItch 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


#Page2.#Box1 OS.PreservationGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA'' 

choice4="GOOD" 

choice5=”EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either SAT, DNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 OS.HighPwrDemoGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 


choice 1="SAT' 
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choice2="UNS" 

choice3="NA" 

choice4="GOOD'' 

choice5="EXC" 

tempValue=self.vaIue 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventinfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
case eventinfo.newVaiueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem'',"Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 OS.CleanlinessGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempVaiue anyType 
choicel String 
choice2 String 
choice3 String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD” 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
othenwise; 

self.value=tempValue 

msgStopC'Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
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eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 OS.StowageGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel =”SAT" 

choice2="UNS" 

choice3="NA" 

choice4=‘’GOOD" 

choice5="EXC" 


tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventinfo.new\/alue0=choice1: 
case eventinfo.newVaiueO=choice2: 
case eventinfo.newValueO=choice3: 
case eventlnfo.newVaiueO=choice4: 
case eventinfo.newVaiueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem”,"Value must be either SAT, DNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 OS.GageCalGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
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Object: 
MethodName: 
Source: 


choice1="SAT" 

choice2="UNS" 

choice3="NA" 

choice4=’'GOOD" 

choice5="EXC’' 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self .val ue=tempValue 

msgStopC'Problem",'Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box106.CSMP_Grade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
case eventlnfo.newValueO=choice3; 
caseeventlnfo.newValueO=choice4: 
case eventlnfo.newA/alueO=choice5: 
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otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box1 OS.ValveMaintGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice 1 String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice! =”SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5='’EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem",''Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box105.INSERT_NEW_MAT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 
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#Page2.#Box105.MatlD_Ship_ShipName_FK4 

changeValue 

method changeValue(var eventlnfo ValueEvent) 
doDefault 

if eventInfo.errorCodeO = 0 then 
;input accepted by Paradox 
else 

msgStopC'Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 


#Page2.#Box1 OS.HullNumber 
arrive 

method arrive(var eventlnfo MoveEvent) 
disableDefault 

moveT o("MatID_ExamEndDate") 
endmethod 
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Object: 
MethodName: 
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OPERATIONS_INPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventInfo.isPreFilterO 
then 

: This code executes for each object on the form. 


else 

; This code executes only for the form. 

AddPop.addT ext("&Locate") 

AddPop.addTextC’&Delete’') 

examMenu.addPopUpC'&Record”, AddPop) 

examMenu.addT ext("&Quit") 

examMenu.addT extC'&Help") 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

endmethod 


OPERATIONSJNPUT_FORM 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Locate'': 
action(DataSearch) 

case eventInfo.menuChoiceO ="&Delete'': 
if "Yes"=msgQuestionC'Delete Record" "Are you sure you want to delete 
"+Operati_Ship_ShipName_FK3+"?") then 

deleteRecordO 

endif 

case eventInfo.menuChoiceO ="&Help": 
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case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestionf Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box62.0perationGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.ne\WalueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
case eventlnfo.new\/alue0=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise; 

self.vaiue=tempValue 

msgStopC'Problem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box62.EccttGrade 

changeValue 


Source: 


method changeValue(var eventinfo ValueEvent) 
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var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAr' 

choice2="UNS" 

choice3="NA" 

choice4=''GOOD'' 

choice5="EXC” 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3; 
case eventlnfo.newValueO=choice4: 
case eventlnfo.new\/alue0=choice5: 
otherwise: 

self.value=tempValue 

msgStopCProblem","Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box61.0perationlD_ExamEndDate 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
if eventInfo.newValueO > todayO then 
Self.value=tempValue 

msgStopC'Problem","ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box60.INSERT_NEW_EXAM_BUTTON 
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pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box60.Operati_Ship_ShipName_FK3 

changeValue 

method changeValue(var eventinfo ValueEvent) 
doDefault 

if eventlnfo.errorCodeO = 0 then 
;input accepted by Paradox 
else 

msgStopC'Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 


#Page2.#Box60.HullNumber 

arrive 

method arrive(var eventinfo MoveEvent) 
disableDefault 

moveTo("OperationlD_ExamEndDate") 

endmethod 
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PMJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventInfo.isPreFilterO 
then 

: This code executes for each object on the form. 

else 

; This code executes only for the form. 

AddPop.addT ext("&Locate") 

AddPop.addT extf&Delete") 

examMenu.addPopUpC'&Record", AddPop) 

examMenu.addT ext("&Quit") 

examMenu.showfO 

maximizeO 

hideSpeedBarO 

editO 

action(datalnsertRecord) 

endif 

endmethod 


PMJNPUT_FORM 

menuAcHon 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Locate": 
action(DataSearch) 

case eventInfo.menuChoiceO =''&Delete''; 
if "Yes"=msgQuestionC'Delete Record","Are you sure you want to delete 
"+PMJD_Ship_ShipName_FK6+"?")then 

deleteRecordO 

endif 

case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
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If reply = "Yes" then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

endmethod 


#Page2.#Box77.ProgramManageGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
caseeventlnfo.newValueO=choice2; 
caseeventlnfo.newValueO=choice3: 
case eventlnfo.newValueO-choice4: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, or DNS") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2 .#Box76.HeatStress 
ChangeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
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choices String 
TC TCursor 
endVar 

choice1=''SAr' 

choice2=''UNS" 

choice3="EXC" 

choice4="GOOD'' 

choice5="NA" 

tempValue=se!f.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.new\/alue0=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem",'Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.HearingConsGrade 

changeValue 

method changeVaiue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA” 

tempValue=self. value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newVaiueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4; 
case eventinfo.newValueO=choiceS: 
otherwise: 
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self.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.PM_ID_ExamEndDate 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
if eventlnfo.newValueO > todayO then 
Self.value=tempValue 

msgStopC'Problem","ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endlf 
endlf 

endmethod 


#Page2.#Box76.0pLogsGrade 

ChangeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.nevvValueO=choice3: 
case eventlnfo.newValueO=choice4: 
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case eventlnfo.new\/alue0=choice5: • 
otherwise: 

self.value=tempValue 

msgStopC'Problem"/'Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventi nfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.QA_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TO TCursor 
endVar 

choicel ="SAT" 

choice2=•’UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO*0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value must be either EXC, GOOD, SAT, UNS, or NA) 
eventinfo .setErrorCode(-1) 
endSwritch 
endlf 

endmethod 


#Page2.#Box76.0LV_Grade 
: ChangeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
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choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choice1="SAT" 

choice2=*'UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=seif.value 

doDefauit 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.new\/alue0=choice5: 
otherwise: 

self.vaiue=tempValue 

msgStopC’Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endif 

endmethod 


#Page2.#Box76.ElectSafetyGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel =”SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=seif.value 

doDefauit 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
caseeventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
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case eventlnfo.newValueO=choice5: 
otherwise: 

self.value^tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.T agoutGrade 
changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TO TCursor 
endVar 

choice 1="SAT 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.MGTESR_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
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choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choice! ="SAT" 

choice2="UNS'’ 

choice3="EXC" 

choice4="GOOD” 

choice5="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2; 
case eventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
othenwise; 

seIf.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.BearingRecsGrade 

changeValue 

method changeVaiue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice! String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choice! ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice!: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
caseeventlnfo.newValueO=choice4: 
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case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem",'Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventinfo.setErrorCode(-1) 
endSwitch 
endlf 

end method 


#Page2.#Box76.LegalRecsGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=seif.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise; 

self.value=tempVaiue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, UNS or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.DETA_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
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choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choice1="SAT" 

choice2=”UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise; 

self.value=tempValue 

nnsgStop("Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.DJV\nT_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
caseeventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4; 
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case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, DNS, NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.FOQM_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choicel ="SAT" 

choice2="UNS'' 

choice3="EXC" 

choice4="GOOD" 

choice5=”NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO®choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.BWFW_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
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choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choice! ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choice5="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1; 
caseeventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise; 

self.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, UNS or NA") 
eventi nfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box76.LOQM_Grade 

changeValue 

method changeValue(var eventlnfo ValueEvent) 
var 

tempValue anyType 
choice! String 
choice2 String 
choices String 
choice4 String 
choices String 
TC TCursor 
endVar 

choice! ="SAT" 

choice2="UNS" 

choice3="EXC" 

choice4="GOOD" 

choiceS="NA" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice!: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
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case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either EXC, GOOD, SAT, UNS, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box75.INSERT_NEW_PM_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box75.PM_ID_Ship_ShipName_FK6 

changeValue 

method changeValue(var eventinfo ValueEvent) 
doDefault 

if eventInfo.errorCodeO = 0 then 
;input accepted by Paradox 
else 

msgStopC’Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 


#Page2.#Box75.HullNumber 

arrive 

method arrive(var eventinfo MoveEvent) 
disableDefault 

moveT oC'PM_ID_ExamEndDate") 
endmethod 
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TRAININGJNPUT_FORM 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

AddPop.addT extC'&Locate") 

AddPop.addTextC'&Delete") 

examMenu.addPopUpC'&Record", AddPop) 

examMenu.addText("&Quit") 

examMenu.addTextf&Help") 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

editO 

action(DatalnsertRecord) 

endif 

end method 


TRAINING_INPUT_FORM 

menuAction 

method menuAclion(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventlnfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Locate'': 
action(DataSearch) 

case eventInfo.menuChoiceO ="&Delete": 
if "Yes"=msgQuestion("Delete Record","Are you sure you want to delete 
"+Trainin_Ship_ShipName_FK7+"?") then 

deleteRecordO 

endif 

case eventInfo.menuChoiceO ="&Help": 
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case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2.#Box86.TrainingProgramGrade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAr 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4; 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC'Problem","Value must be either SAT, DNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box85.TraininglD_ExamEndDate 

changeValue 


Source: 


method changeValue(var eventinfo ValueEvent) 
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var 

tempValue AnyType 
endVar 

tempValue=Self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
if eventInfo.newA/alueO > todayO then 
Self.value=tempValue 

msgStop("Problem","ExamEndDate cannot be a future date!") 
eventlnfo.setErrorCode(-1) 
endif 
endlf 

endmethod 


#Page2.#Box85.NrOfSatOilKing 

action 

method action(var eventinfo ActionEvent) 
Switch 

case propType.value="DSL": 
if eventlnfo.idO=fieldForward then 
disableDefault 
NrOfSatENOW.moveT oQ 
endlf 

case propType.value="GT; 
if eventlnfo.idO=fieldForward then 
disableDefault 
NrOfSatPACC.moveToQ 
endlf 

endSwrtch 

endmethod 


#Page2.#Box85.TrainingGrade 
: changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choice! String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choice! ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5="EXC" 
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tempValue=self. value 
doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.newValueO=choice2: 
case eventlnfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStopC’Problem","Value must be either SAT, DNS, GOOD, EXC, or NA") 
eventinfo .setErrorCode(-1) 
endSwitch 
endlf 

endmethod 


#Page2.#Box85.PQS_Grade 

changeValue 

method changeValue(var eventinfo ValueEvent) 
var 

tempValue anyType 
choicel String 
choice2 String 
choices String 
choice4 String 
choices String 
endVar 

choicel ="SAT" 

choice2="UNS" 

choice3="NA" 

choice4="GOOD" 

choice5=”EXC" 

tempValue=self.value 

doDefault 

if eventlnfo.errorCodeO=0 then 
switch 

case eventlnfo.newValueO=choice1: 
case eventlnfo.new\/alue0=choice2: 
case eventinfo.newValueO=choice3: 
case eventlnfo.newValueO=choice4: 
case eventlnfo.newValueO=choice5: 
otherwise: 

self.value=tempValue 

msgStop("Problem",'Value must be either SAT, UNS, GOOD, EXC, or NA") 
eventlnfo.setErrorCode(-1) 
endSwitch 
endlf 

endmethod 
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#Page2.#Box84.NrOfSatEDG_SWBD_Op 

action 

method action (var eventinfo ActionEvent) 
if eventlnfo.idO=fieldForward then 
disableDefauit 

KeyPersonnelLeaving.moveToQ 

endlf 

endmethod 


#Page2.#Box82.NrOfSatMsgr_EngOp 

action 

method action(var eventinfo ActionEvent) 
if eventlnfo.idO=fieldForward then 
disableDefauit 

KeyPersonnelLeaving.moveT oQ 
endlf 

endmethod 

#Page2.#Box81.INSERT_NEW_TRAIN_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 

action(datalnsertRecord) 

endmethod 


#Page2.#Box81 .HullNumber 
arrive 

method arrive(var eventinfo MoveEvent) 
disableDefauit 

moveto('TraininglD_ExamEndDate'') 

endmethod 


#Page2.#Box81 .T rainin_Ship_ShipName_FK7 
; changeValue 

method changeValue(var eventinfo ValueEvent) 
doDefault 

if eventInfo.errorCodeO = 0 then 
iinput accepted by Paradox 
6lS0 

msgStopC’Problem", "The ship you entered is not valid. You must enter the ship first!") 
endlf 

endmethod 
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BOILER_FLEX_QUERY 

Const 

Const 

ViewFlex1=301 

ViewFlex2=302 

\/iewFlex3=303 

ViewFlex4=304 

ViewFlex5=305 

PrintFlex1=313 

PrintFlex2=314 

PrintFlex3=315 

PrintFlex4=316 

PrintFlex5=317 

PrintFlex6=318 

endConst 


BOILER_FLEX_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tcTcursor 

examMenu, View, Print, ReportMenu Menu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewFlexPop PopUpMenu 

PrintFIexPop PopUpMenu 

examtype PopupMenu 

endVar 

if eventInfo.isPreFiiterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

PrintPop.addTextC'Flex &1 ","",PrintFlex1) 
PrintPop.addText("Flex&2","",PrintFlex2) 

PrintPop.addTextC’Flex &3”,”",PrintFlex3) 
PrlntPop.addText("Flex&4","",PrintFlex4) 
PrintPop.addText("Flex&5","",PrintFlex5) 
PrintPop.addTextC'&Graph'',"",PrintFlex6) 

ViewPop.addText("Flex &1 ","",ViewFlex1) 
ViewPop.addText("Flex&2","",ViewFlex2) 
ViewPop.addText("Flex&3","",ViewFIex3) 
ViewPop.addText(''Flex&4'',"",ViewFlex4) 

ViewPop.addT extfFlex &5","",ViewFlex5) 
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examMenu.addText("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


B01LER_FLEX_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
choiceld Smallint 
m menu 
endVar 

choiceld=eventlnfo.idO 

if eventlnfo-isPreFilterO 
then 

; This code executes for each object on the form. 


else 

; This code executes only for the form. 


Switch 

case eventInfo.menuChoiceO =''&Help": 

case eventlnfo.menuChoiceO ="&Qult": 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeQ 
else 
return 
endif 

endSwitch 

Switch 

case choiceld =ViewFlex1: 
myRep.openfFlexT'.WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =ViewFlex2: 
myRep.openC'Flex2",WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =ViewFlex3: 
myRep.open("Flex3",WinStyieMaximi2e) 
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hideSpeedBarO 

m.addTextn 

m.showO 

case choiceld =ViewFlex4: 
myRep.openC'Flex4",WinStyleMaximize) 
hideSpeedBarO 
m.addTextn 
m.showO 

case choiceld =ViewFlex5: 
myRep.open("Flex5", WinStyleMaximize) 

hideSpeedBarO 

m.addTextn 

m.showO 

case choiceld =PrintFlex1: 
myRep.print("Flex1") 
case choiceld =PrintFlex2: 
myRep.print("Flex2'') 
case choiceld =PrintFlex3: 
myRep.print("Flex3") 
case choiceld =PrintFlex4: 
myRep.printC'Flex4") 
case choiceld =PrintFlex5: 
myRep.printC'FlexS") 
case choiceld =PrintFlex6: 
myRep.printC'BoilFlex") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu, View, Print, ReportMenu Menu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewFlexPop PopUpMenu 

PrintFlexPop PopUpMenu 

examtype PopupMenu 

endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

PrintPop.addTextC'Flex &1PrintFlexI) 
PrintPop.addTextrFlex&2","'',PrintFlex2) 

PrintPop.addTextC'Flex &3",'"',PrintFlex3) 
PrintPop.addTextC'Flex&4","",PrintFlex4) 

PrintPop.addTextC'Flex &5","",PrintFlex5) 
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ViewPop.addTextC'Flex &1 "."".ViewFlexI) 
ViewPop.addText("Flex&2","",ViewFlex2) 
ViewPop.addTextC’Flex &3","",ViewFlex3) 
ViewPop.addTextC'Flex &4","",ViewFlex4) 
ViewPop.addTextC’Flex &5","",ViewFlex5) 

examMenu.addPopUp("&View", ViewPop) 

examMenu.addPopUPC’&Print", PrintPop) 

examMenu .addT extC'&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

endif 

endmethod 


#Page2.RESET_GRAPH_BUTT0N 

pushButton 

method pushButton(var eventinfo Event) 
var 

tcTcursor 

endVar 

tc.openC’percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL2_BUTTON 
: pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 

numberOfFlexes Number 
totalNumberOfFlexes Number 
flexPercentage Number 
myQuery Query 
examDate! Date 
examDate2 Date 
endVar 
doDefault 

examDatel =date("01 /01/00") 
examDate2=dateC’12/31/99'’) 
examDatel .viewC’Enter start date (I.E. 01/01/95)") 
examDate2.viewC’Enter stop date (I.E. 12/12/99)") 

myQuery=Query 
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Object: 
MethodName: 
Source: 


EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType 1 

1 _EG01 I Check >=~examDate1, <=~examDate2|Check =OPPE OR =REOPPEl 

SHIP.DB I ShipName | PropType | 

I Check _EG02,_EG01 | Check =STM| 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | TtINrOfLevel2Flex | 

|_EG02 I Check | 

MATERIAL.DB | TtlNrOfBoilersFlexed | BoilerFlexComments | 

I Check I Check | 


EndQuery 

doDefault 

emptyC'flex2") 

executeQBE(myQuery, "flex2.db") 
tbl.attach(''flex2") 

numberOfFlexes=tbl.cSum("TtlNrOfLevel2Flex'') 

msgInfoC'Level Two Boiler Flex","The total number of Level Two Flexes are" 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSumCTtlNrOfBoilereFlexed") 
if totalNumberofFlexes <> 0 then 

msglnfofLevel Two Boiler Flex","The total number of Boiler Flexes are" 
+str\/al(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level Two Boiler Flex","The Level Two Boiler Flex percentage is " 
+stiVal(FlexPercentage)) 

else 

msgStopC’Problem","The TOTAL NUMBER of boiler flexes is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 

tc.rPropType")="Lvl2" 

tc.("examDate1 ")=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL5_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("Flex5") 
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endmethod 


Object: 
MethodName: 
Source: 


Object: 
MethodName; 
Source: 


Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


#Page2.#Box23.LEVEL4_LlST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("Flex4") 

endmethod 


#Page2.#Box23.LEVEL3_LISTS_SHIPS_BUTTON 

pushButton 

method pushButton (var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("Flex3’') 

endmethod 


#Page2.#Box23.LEVEL2_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open(''Flex2") 

endmethod 


#Page2.#Box23.LEVEL1_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("Flex1") 
endmethod 


#Page2.#Box23.LEVEL4_BUTTON 
: pushButton 

method push Button (var eventinfo Event) 
var 
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tc tCursor 
tbi table 

numberOfFlexes Number 
totalNumberOfFlexes Number 
flexPercentage Number 
myQuery Query 
examDatet Date 
examDate2 Date 
endVar 
doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date(''12/31/99") 
examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 12/12/99y') 

myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Shlp_ShipName_FK21 ExamlD_ExamEndDate lExamType 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =OPPE OR REOPPEj 

SHIP.DB I ShipName | PropType | 

1 Check _EG02, _EG01 | Check =STM| 

MATERIAL.DB 1 MatlD_Ship_ShipName_FK4 1 TtlNrOfLeveWFlex 1 
I _EG02 I Check 1 

MATERIAL.DB | TtlNrOfBoilersFlexed | BoilerFlexComments 1 
I Check I Check | 


EndQuery 

doDefault 

empty("flex4") 

executeQBE(myQuery, "flex4.db") 
tbl.attachrflex4”) 

numberOfFlexes=tbl.cSumCTtlNrOfLevel4Flex") 

msgInfoC'Level Four Boiler Flex","The total number of Level Four Flexes are" 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSum("TtlNrOfBoilersFlexed") 
if totalNumberofFlexes <> 0 then 

msglnfofLevel Four Boiler Flex","The total number of Boiler Flexes are" 
+str\/al(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level Four Boiler Flex","The Level Four Boiler Flex percentage is" 
+strVal (FlexPercentage)) 

else 

msgStop("Problem","The total number of flexes is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 
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Object: 
MethodName; 
Source; 


tc.CPercentage")=flexPercentage 

tc.("PropType")="Lvl4" 

tc.C’examDatel ")=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL5_BUTTON 

pushButton 

method pushButlon(var eventinfo Event) 
var 

tc tCursor 
tbi table 

numberOfFlexes Number 
totalNumberOfFlexes Number 
flexPercentage Number 
myQuery Query 
examDatel Date 
examDate2 Date 
endVar 
doDefault 

examDatel =date("01 /01 /OO") 
examDate2=dateC'12/31 199 ") 
examDatel .viewfEnter start date (l.E. 01/01/95)") 
examDate2.view("Enter stop date (l.E. 12/12/99/') 

myQuery=Query 

ANSWER; :PRIV:/\NSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamlD_ExamEndDate |ExamType 1 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =OPPE OR REOPPE| 

SHIP.DB I ShipName 1 PropType | 

1 Check _EG02, _EG01 i Check =STM1 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | TtlNrOfLevelSFlex | 

I _EG02 I Check | 

MATERIAL.DB | TtlNrOfBoilersFlexed 1 BoilerFlexComments | 

1 Check 1 Check 1 


EndQuery 

doDefault 

emptyC'flex5") 

executeQBE(myQuery, "flexS.db") 
tbl.attach(”flex5") 

numberOfFlexes=tbl.cSum("TtlNrOfLevel5Flex") 

msglnfo("Level Five Boiler Flex","The total number of Level Five Flexes are" 
+str\/al(NumberOfFlexes)) 
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Object: 
MethodName: 
Source; 


TotalNumberOfFlexes=tbl.cSum("TtlNrOfBoilersFlexed") 
if totalNumberofFlexes <> 0 then 

msglnfo("Level Five Boiler Flex","The total number of Boiler Five are " 
+strVal(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level Five Boiler Flex",'The Level Five Boiler Flex percentage is" 
+strVal(FlexPercentage)) 

0lS6 

msgStop("Problem",”The total number of flexes is 0, you cannot divide by Ol") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 

tc.("PropType")="Lvl5” 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditQ 

endmethod 


#Page2.#Box23.LEVEL1_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 

numberOfFlexes Number 
totalNumberOfFlexes Number 
flexPercentage Number 
myQuery Query 
myQueryl Query 
examDatel Date 
examDate2 Date 
PropType String 
ExamType String 
endVar 
doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31 /99") 
examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 12/12/99)") 

myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/WI.DB I ExamlD_Ship_ShipName_FK21 ExamlD_ExamEndDate |ExamType | 

I _EG01 1 Check >=~examDate1, <=~examDate2|Check =OPPE OR =REOPPEj 

SHIP.DB 1 ShipName 1 PropType | 

I Check _EG02, _EG01 I Check =STM1 
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Object: 
MethodName 
Source: 


MATERIAL.DB | MatlD_Ship_ShipName_FK4 ] TtlNrOfLeveMFlex ] 
I _EG02 I Check | 

MATERIAL.DB | TtlNrOfBoilersFlexed | BoilerFlexComments | 

I Check I Check | 


EndQuery 

doDefault 

empty("flex1") 

executeQBE(myQuery, "flexi .db") 
tbl.attach("flex1") 

numberOfFlexes=tbl.cSum("TtlNrOfLevel1Flex") 

msgInfoCLevel One Boiler Flex","The total number of Level One Flexes are" 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSumn’tlNrOfBoilersFlexed") 
if totalNumberofFlexes <> 0 then 

msgInfoC'Level One Boiler Flex"."The total number of Boiler Flexes are" 
+strVal(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level One Boiler Flex","The Level One Boiler Flex percentage is " 
+sttVal(FlexPercentage)) 

6lS6 

msgStop("Problem","The TOTAL NUMBER of boiler flexes is 0, you cannot divide by 0!") 
return 
endlf 

tc.openCpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 

tc.C'PropType")="Lvl1" 

tc.fexamDatel ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box23.LEVEL3_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 

numberOfFlexes Number 
totalNumberOfFlexes Number 
flexPercentage Number 
myOuery Query 
examDatel Date 
examDate2 Date 
endVar 
doDefault 

examDatel =date("01/01/00") 
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examDate2=date("12/31/99") 

examDatel .viewfEnter start date (l.E. 01/01/95)") 

examDate2.viewC'Enter stop date (l.E. 12/12/99y') 

myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/WI.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType | 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =OPPE OR =REOPPE| 

SHIP.DB 1 ShipName 1 PropType 1 
I Check _EG02, _EG01 | Check =STM1 

MATERIAL.DB 1 MatlD_Ship_ShipName_FK4 | TtlNrOfLevelSFlex | 

I _EG02 I Check 1 

MATERIAL.DB | TtlNrOfBoilersFlexed | BoilerFlexComments | 

I Check I Check | 


EndQuery 

doDefault 

empty("flex3") 

executeQBE(myQuery, "flex3.db") 
tbl.attach("flex3") 

numberOfFlexes=tbl.cSum("TtlNrOfLeveI3Flex") 

msgInfoC'Level Three Boiler Flex","The total number of Level Three Flexes are" 
+strVal(NumberOfFlexes)) 

TotalNumberOfFlexes=tbl.cSumC'TtlNrOfBoilersFlexed") 
if totalNumberofFlexes <> 0 then 

msgInfoC'Level Three Boiler Flex","The total number of Boiler Flexes are" 
+strVal(totalNumberOfFlexes)) 

FlexPercentage=(numberOfFlexes/totalNumberOfFlexes)*100 
msgInfoC'Level Three Boiler Flex","The Level Three Boiler Flex percentage is" 
+strVal(FlexPercentage)) 

6lS6 

msgStop("Problem'','The TOTAL NUMBER of boiler flexes is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=flexPercentage 
tc.("PropType")="Lvl3" 
tc.("examDate1 ")=examDate1 
tc.(''examDate2")=examDate2 
tc.endEditO 

endmethod 
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Object: 
MethodName: 
Source: 


Object; 
MethodName: 
Source: 


ECCTT_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tcTcursor 
examMenu Menu 
ReportPop PopUpMenu 
ViewPop PopUpMenu 
PrintPop PopUpMenu 
endVar 

if eventlnfoJsPreFilterO 
then 

; This code executes for each object on the form. 


else 

; This code executes only for the form. 

PrIntPop.addTextfU&nsat ECCTT Report") 
PrintPop.addText(”S&at ECCTT Report") 
PrintPop.addT ext("&Graph") 

Vie\wPop.addText("&Unsat ECCTT Report") 

ViewPop.addTextr&Sat ECCTT Report") 

ReportPop.addPopUpC'&View", ViewPoP) 

ReportPop.addPopUpC’&Prinf, PrintPoP) 

examMenu.addPopUpC&Report", ReportPoP) 

examMenu.addText("&Quit") 

examMenu.showrO 

maximizeO 

hideSpeedBarO 

tc.open(" percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


ECCTT_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
m menu 
endVar 

if eventlnfo.isPreFilterO 
then 

; This code executes for each object on the form. 


; This code executes oniy for the form. 
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else 



Switch 


Object: 
MethodName: 
Source: 


case eventInfo.menuChoiceO ="&Unsat ECCTT Report": 
myRep.open("ECCTT2'', WinStyleMaximize) 
hideSpeedBarO 
m.addTextr") 
m.showO 

case eventInfo.menuChoiceO ="&Sat ECCTT Report": 
myRep.open("ECCTT", WinStyleMaximize) 
hideSpeedBarO 
m.addTextr) 
m.showO 

case eventInfo.menuChoiceO ="&Graph": 
myRep.print("ECCTT1") 

case eventInfo.menuChoiceO ="U&nsat ECCTT Report": 
myRep.printCECCTT2") 

case eventInfo.menuChoiceO ="S&at ECCTT Report": 
myRep. printC'ECCTT") 

case eventInfo.menuChoiceO ="&Help": 

case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu Menu 
ReportPop PopUpMenu 
ViewPop PopUpMenu 
PrintPop PopUpMenu 
endVar 

PrintPop.addText("U&nsat ECCTT Report") 

PrintPop.addTextCS&at ECCTT Report") 

PrintPop.addTextC'&Graph") 

ViewPop.addText("&Unsat ECCTT Report") 

ViewPop.addTextf&Sat ECCTT Report") 

ReportPop.addPopUp("&View". ViewPoP) 

ReportPop.addPopUpC&Print", PrintPoP) 

examMenu.addPopUp("&Report", ReportPoP) 

examMenu.addT extC’&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 
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Object: 
MethodName: 
Source; 


Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


#Page2.RESET_GRAPH_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tcTcursor 

endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

ne\w\/iew tableView 
choice string 
endVar 
choice="SAr' 

choice.viewC'Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAT": newView.open("ECCTT") 
case choice="UNS": newView.open("ECCTT2") 
otherwise; 

msgStop("Problem","The choices for ECCTT grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 


#Page2.ECCTT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatECCTT Number 
totalNumberOfECCTT Number 
satPercentageECCTT Number 
myQuery Query 
myQueryt Query 
myQuery2 Query 
examDatel Date 
examDate2 Date 
propType String 
examType String 
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endVar 

doDefault 

examDatel =date("01/01 100”) 
examDate2=date("12A31/99") 
propType="GF 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95y') 
propType.viewfEnter prop type (GT/STM/DSL)") 
switch 

case propType="Gr': 
case propType="STM": 
case propType=''DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!') 
return 
endSwitch 

if propType="ALL'' then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

SHIP.DB I ShipName | PropType 1 
1_EG01 I Check | 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate | 

I Check _EG01 | Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | EccttGrade | EccttComments | 

I Check =SAT | Check | 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

SHIP.DB 1 ShipName | PropType | 

I _EG01 I Check | 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate | 
1 Check _EG01 | Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | EccttGrade | EccttComments | 

I Check 1 Check | 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 
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SHIP.DB 1 ShipName | PropType | 

|_EG01 I Check | 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate | 
I Check _EG01 I Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | EccttGrade | EccttComments ] 

I Check =UNS I Check | 


EndQuery 

else 

myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

SHIP.DB I ShipName | PropType | 

I _EG01 I Check =~PropType| 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate | 
I Check _EG01 I Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | EccttGrade | EccttComments | 

I Check =SAT I Check | 


EndQuery 

myQuery1=Query 

ANSWER: :PRIVAkNSWER.DB 

SHIP.DB I ShipName | PropType | 

I _EG01 I Check =~PropType| 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate | 
I Check _EG01 | Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | EccttGrade | EccttComments | 

I Check I Check \ 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

SHIP.DB I ShipName | PropType | 

I _EG01 I Check =~PropTypel 

OPERATIO.DB ] Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate \ 
I Check _EG01 | Check >=~examDate1, <=~examDate2l 
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OPERATIO.DB | EccttGrade | EccttComments | 
I Check =UNS | Check | 


EndQuery 

endlf 

emptyCECCTT’’) 

emptyC'ECCTTI") 

empty("ECCTT2") 

executeQBE(myQuery, "ECCTT.db") 
executeQBE(myQuery1, "ECCTT1 .db") 
executeQBE(myQuery2, "ECCTT2.db") 
tbLattachC'ECCTT") 
tbl1.attach("ECCTT1") 

numberOfSatECCTT=tbl.cCount(''EccttGrade") 
msglnfoC'ECCTT","The total number of sats are" 

+strVal(NumberOfSatECCTT)) 

TotalNumberOfECCTT=tbl1.cCount("EccttGrade") 

IfTotalNumberOfECCTT <> Othen 
msglnfo("ECCTT”,'The total number is" 

+strVal(totalNumberOfECCTT)) 

SatPercentageECCTT=(numberOfSatECCTT/totalNumberOfECCTT)*100 
msglnfoC'ECCTT",'The sat percentage is" 

+strVal(satPercentageECCTT)) 

0tS6 

msgStop(''Problem","The total number of ECCTT grades is 0, you cannot divide by Ol") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageECCTT 

tc.("PropType")=PropType 

tc.f examDatel '')=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


F1RE_DRILL_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tcTcursor 

examMenu, View, Print, ReportMenu Menu 

ReportPop PopUpMenu 

AddPoP PopUpMenu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

ReportPop.addPopUpf&View'', ViewPop) 
ReportPop.addPopUpC’&Print", PrintPop) 
PrintPop.addTextC'FireDrill &1") 

PrintPop.addTextC’FireDrill &2") 

PrintPop.addText("FireDrill &3") 

PrintPop.addT extf &Graph") 

ViewPop.addTextfFire Drill &1") 

ViewPop.addTextfFire Drill &2") 

ViewPop.addTextC'Fire Drill &3") 

examMenu.addPopUpC&View", ViewPop) 

examMenu.addPopUPC’&Print", PrintPop) 

examMenu.addT ext("&Quit”) 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


FIRE_DRILL_QUERY 
: menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
m menu 
endVar 



Object: 
MethodName; 
Source: 


if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 


else 


; This code executes only for the form. 

Switch 

case eventInfo.menuChoiceO ="&Locate": 
action(DataSearch) 

case eventInfo.menuChoiceO ="&Delete": 

if ''Yes"=msgQuestion("Delete Record","Are you sure you want to delete this RECORD?") then 
deleteRecordO 
endlf 

case eventInfo.menuChoiceO ="Fire Drill &1": 
myRep.openfFireDrll", WinStyleMaximize) 
hideSpeedBarO 
m.addTextr") 
m.showO 

case eventInfo.menuChoiceO ="Fire Drill &2": 
myRep.open("FireDrl2", WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case eventInfo.menuChoiceO ="Fire Drill &3": 
myRep.openC'FireDrIS", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC"') 
m.showO 

case eventInfo.menuChoiceO ="FireDriil &1": 

myRep.printC'FireDrII") 
case eventInfo.menuChoiceO ="FireDrill &2": 
myRep.printC'FireDrl2") 
case eventInfo.menuChoiceO ="FireDrill &3": 

myRep.print("FireDrl3") 
case eventInfo.menuChoiceO ="&Graph": 
myRep.print("FireDril") 
case eventInfo.menuChoiceO ="&Help": 


case eventInfo.menuChoiceO ="&Quit"; 
reply=msgQuestionC'Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source; 


Object: 
MethodName 
Source: 


var 

examMenu, View, Print, ReportMenu Menu 

ReportPop PopUpMenu 

AddPoP PopUpMenu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

endVar 

ReportPop.addPopUpC'&View", ViewPop) 
ReportPop.addPopUpC&Prinf, PrintPop) 
PrintPop.addTextC'FireDrill &1") 
PrintPop.addTextC'FireDrill &2") 
PrintPop.addTextfFireDrill &3") 
PrintPop.addT extC&Graph") 

ViewPop.addTextC’Fire Drill &1") 
ViewPop.addTextCFire Drill &2") 
ViewPop.addTextfFire Drill &3") 

examMenu.addPopUpf&View", ViewPop) 

examMenu.addPopUPf&Print", PrintPop) 

examMenu.addTextf&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.#Box15.FD3_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("fireDrl3") 

endmethod 


#Page2.#Box15.FD2_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableVlew 
endVar 

newView.open(''fireDrl2") 

endmethod 


#Page2.#Box15.FD1_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
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Object: 
MethodName: 
Source: 


var 

newView tableView 
endVar 

newView.open("fireDrl1") 
endmethod 


#Page2.#Box15.FIRE_DRILL_3_BUTTON 
pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 
tbl2 table 

numberOfSats Number 
totalNumberOfDrills Number 
satPercentage Number 
myQuery Query 
myQueryl Query 
exam Date 1 Date 
examDate2 Date 
PropType String 
ExamType String 
endVar 

empty ("temp3") 
tbl2.attach("temp3.db'') 
doDefault 
empty ("firedrl3") 
examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.viewC'Enter end date (I.E. 01/01/95)") 
propType.viewC'Enter (GT/STM/DSL)") 
switch 

case propType="GT: 
case propType="STM": 
case propType="DSL": 
case propType="/U_L": 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, /U.L only!") 
return 
endSwitch 

examT ype.view("Enter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
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return 

endSwitch 


if propType="ALL" then 
myQuery=Query 

ANSWER: :PR1V:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate [ExarnType \ 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =~examType | 

SHIP.DB I ShipName | PropType I 
I Check _EG02, _EG01 | Check | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 I FireDrill3_Grade IFireDrillCommentsl 
I _EG02 I Check =SAT jcheck| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType I 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =~ExamType | 

SHIP.DB I ShipName I PropType | 

I Check _EG02, _EG01 I Check | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireDrill1_Grade | FireDrill2_Grade ] 

I _EG02 I Check I Check | 

FIREFIGH.DB \ FireDrill3_Grade |FireDrillCommente| 

I Check =SAT OR =UNS|Check| 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate jExamType | 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =~examType | 

SHIP.DB I ShipName | PropType I 

I Check _EG02, _EG01 | Check =~propType| 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireDrill3_Grade IFireDrillCommentsl 
I _EG02 I Check =SAT jcheckl 


EndQuery 
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Object: 


myQueryl =Query 
ANSWER; :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType | 

I _EG01 I Check >=~examDate1, <=~examDate2lCheck =~ExamType | 

SHIP.DB I ShipName | PropType | 

I Check _EG02,_EG01 I Check =~proptype| 

FIREFIGH.DB I FireFig_Ship_ShipName_FK5 | FireDrill1_Grade | FireDrill2_Grade | 
|_EG02 [Check [Check [ 

FIREFIGH.DB [ FireDrill3_Grade [FireDrillComments[ 

[ Check =SAT OR =UNS[Check[ 


EndQuery 

endlf 

empty("fireDrl3") 

executeQBE(myQuery, ''temp3.db") 
executeQBE(myQuery1, "fireDrIB.db") 
tbl2.addC'firedrl3.db","True","False") 
tbl.attach("fireDrl3") 
tbl1 .attach ("fireDrlB") 

numberOfSats=tbl.cCount("FireDrill3_Grade") 
msglnfo("Fire Drill Three","The total number of sat drills are" 
+strVal(NumberOfSats)) 

TotalNumberOfDrills=tbl1.cCountC'FireDrill3_Grade") 
if TotalNumberOfDrills <> 0 then 
msglnfo("Fire Drill Three","The total number of fire drills are " 
+strVal(totalNumberOfDrills)) 
SatPercentage=(numberOfSats/totalNumberOfDrills)*100 
msgInfoC'Fire Drill Three","The sat fire drill percentage is" 
+stiVal(satPercentage)) 

else 

msgStop("Problem",'The total number of drills is 0, you cannot divide by 0!") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentage 

tc.("PropType")=propType 

tc.("PropType1 ")=examType 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box15.FIRE_DRILL_2_BUTTON 
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MethodName: pushButton 


Source: 


method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 
tbl2 table 

numberOfSats Number 
totalNumberOfDiills Number 
satPercentage Number 
myQuery Query 
myQueryl Query 
examDatel Date 
examDate2 Date 
PropType String 
ExamType String 
endVar 
doDefault 
empty(''temp2") 
tbl2.attach("tenrip2.db") 
emptyC'firedrl2") 
examDatel =datef 01 /01 /OO") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .viewC'Enter start date (l.E. 01/01/95)") 
examDate2.viewC'Enter stop date (l.E. 01/01/95)”) 
propType.viewC'Enter(GT/STM/DSL)") 
svritch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE'': 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStop("Problem'','The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/\M.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType | 
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I _EG01 


I Check >=~examDate1, <=~exannDate2|Check =~examType | 


SHIP.DB I ShipName | PropType | 

I Check _EG02, _EG01 | Check I 

FIREFIGH.DB | FireFig_Ship_ShipName_FK51 FireDrill2_Grade |FireDrillComments| 
l_EG02 |Check=SAT jcheck | 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamlD_ExamEndDate |ExamType | 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =~ExamType | 

SHIP.DB I ShipName | PropType | 

I Check _EG02, _EG01 | Check | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireDrill1_Grade | FireDrilI2_Grade | 

I _EG02 I Check | Check | 

FIREFIGH.DB | FireDrill3_Grade lFireDrillComments| 

I Check [Check | 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamlD_ExamEndDate [ExamType [ 

I _EG01 I Check >=~examDate1, <=~examDate2|Check =~examType | 

SHIP.DB I ShipName | PropType | 

I Check _EG02,_EG01 | Check =~propTypel 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireDrill2_Grade |FireDrillComments| 
|_EG02 |Check=SAT [Check [ 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamlD_ExamEndDate [ExamType | 

[ _EG01 [ Check >=~examDate1, <=~examDate2[Check =~ExamType [ 

[ PropType[ 


SHIP.DB [ ShipName 
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Object: 
MethodName 
Source: 


I Check _EG02, _EG01 | Check =~proptypel 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 \ FireDrill1_Grade | FireDrill2_Grade | 
I _EG02 I Check I Check I 

FIREFIGH.DB I FireDrill3_Grade |FireDrillComments| 

I Check ICheck | 


EndQuery 

endlf 

executeQBE{myQuery, "temp2.db'') 
executeQBE(myQuery1, "fireDrlA.db") 
tbl2.add("firedrl2.db","True","False") 
tbl.attach("fireDrl2") 
tbl1 .attachC'fireDrlA") 

numberOfSats=tbl.cCount("FireDrill2_Grade") 
msgInfoC'Fire Drill Two",The total number of sat drills are" 
+strVal(NumberOfSats)) 

TotalNumberOfDrills=tbl1.cCountC'FireDrill2_Grade") 
if TotalNumberOfDrills <> 0 then 
msgInfoC'Fire Drill Two","The total number of fire drills are" 
+strVal(totalNumberC)fDrills)) 
SatPercentage=(numberOfSats/totalNumberOfDrills)*100 
msglnfo("Fire Drill Two","The sat fire drill percentage is" 
+strVal(satPercentage)) 

else 

msgStop("Problem","The total number of drills is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.C'Percentage")=SatPercentage 

tc.fPropType")=propType 

tc.C'PropType1")=examType 

tc.fexamDatel ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box15.FIRE_DRILL_1_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 
tbl2 table 

numberOfSats Number 
totalNumberOfDrills Number 
satPercentage Number 
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myQuety Query 
myQueryl Query 
examDatel Date 
examDate2 Date 
PropType String 
ExamType String 
endVar 
doDefault 
empty ("tempi") 
tbi2.attach("temp1 .db") 
examDatel =date("01/01/00") 
examDate2=dateC' 12/31/99") 
propType="GT" 
examfype="OPPE" 

examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 12/12/99)") 
propType.viewC’Enter (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType=”STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT. STM, DSL, or ALL only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPEA.OE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
othenwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIVANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate 1 ExamType | 

I _EG01 1 Check >=~examDate1, <=~examDate21 Check =~examTypeI 

FIREFiGH.DB | FireFig_Ship_ShipName_FK5 | FireDrill1_Grade | 

1_EG02,_EG01 |Check=SAT | 

FIREFIGH.DB | FireDrillComments | 

I Check I 

SHIP.DB I ShipName | PropType | 

I Check_EG02 I Check | 


EndQuery 
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myQueryl =Query 
ANSWER: :PRIV:ANSWER.DB 


EXAM.DB I ExamID_Ship_ShipName_FK2 1 ExamlD_ExamEndDate [ExarnType | 

1 _EG01 I Check >=~examDate1, <=~examDate2|Check =~examType| 

SHIP.DB I ShipName | PropTypej 
lCheck_EG02,_EG01 ICheck | 

FIREFIGH.DB I FireFig_Ship_ShipName_FK5 I FireDrill1_Grade | FireDrill2_Grade I 
l_EG02 ICheck I Check | 

FIREFIGH.DB | FireDrill3_Grade I FireDrillComments | 

I Check I Check I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate | ExarnType I 

I _EG01 I Check >=~examDate1, <=~examDate2| Check =~examType| 

FIREFIGH.DB I FireFig_Ship_ShipName_FK5 I FireDrill1_Grade | 

1_EG02,_EG01 lCheck=SAT I 

FIREFIGH.DB | FireDrillCommente I 
I Check I 

SHIP.DB I ShipName | PropType | 

I Check _EG02 ( Check =~propTypel 


EndQuery 

myQueryl =Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType | 

1 _EG01 I Check >=~examDate1, <=~examDate2|Check =~examType| 

SHIP.DB I ShipName | PropType | 

I Check _EG02, _EG01 | Check =~propTypel 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireDrill1_Grade | FireDrill2_Grade | 
l_EG02 ICheck ICheck I 

FIREFIGH.DB | FireDrill3_Grade | FireDrillComments | 

I Check I Check | 
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Object: 
MethodName: 
Source: 


EndQuery 

endlf 

doDefault 

emptyC'fireDrII") 

executeQBE(myQuery,"tempi .db") 
executeQBE(myQuery1, "fireDrIA.db") 
tbl2.addC’fireDrI1",’True","False") 
tbl.attachC'fireDrll") 
tbil .attachC'fireDrIA") 

numberOfSats=tbl.cCount("FireDrill1_Grade") 
msgInfoC'Fire Drill One",The total number of sat drills are" 
+strVal(NumberOfSats)) 

TotalNumberOfDrills=tbl1.cCount("FireDrill1_Grade") 

If TotalNumberOfDiills <> 0 then 
msgInfoC'Fire Drill One","The total number of fire drills are" 
+strVal(totalNumberOfDrills)) 
SatPercentage=(numberOfSate/totalNumberOfDrills)*100 
msgInfoC'Fire Drill One","The sat fire drill percentage is" 
+stiVal(satPercentage)) 

else 

msgStop("Problem","The total number of drills is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc-insertRecordO 

tc.("Percentage")=SatPercentage 

tc.rPropType")=propType 

tc.fPropTypel ")=examType 

tc.C'examDatel ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.RESET_GRAPH_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc Tcursor 
endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source; 


HIGH_POWER_DEMO_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tcTcursor 
examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
PrintPop PopUpMenu 
endVar 

if eventlnfoJsPreFilterO 
then 

; This code executes for each object on the form. 


else 

; This code executes only for the form. 


PrintPop.addText("&High Power Report") 
PrintPop.addT ext("&Graph") 

ReportPop.addT ext("&View") 

ReportPop.addPopUpf&Prinf .PrintPoP) 

examMenu.addPopUpC'&Report", ReportPoP) 

examMenu .addT ext("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.openC'percenf) 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


HIGH_POWER_DEMO_QUERY 
menu Action 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
m menu 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 


Switch 


else 

; This code executes only for the form. 

case eventInfo.menuChoiceO ="&\/iew": 
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Object: 
MethodName: 
Source; 


Object: 
MethodName: 
Source: 


myRep.openfHighPwr", WinStyleMaximize) 

hideSpeedBarQ 

m.addText("") 

m.showO 

case eventInfo.menuChoiceO ="&High Power Report": 

myRep.printC'HighPwr") 
case eventInfo.menuChoiceO ="&Graph": 

myRep.printC'HiPwr") 
case eventInfo.menuChoiceO =''&Help"; 

case eventInfo.menuChoiceO ="&Quit"; 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 

endSwitch 

endif 

end method 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
PrintPop PopUpMenu 
endVar 

PrintPop.addTextf&High Power Reporf) 
PrintPop.addText("&Graph") 

ReportPop.addT ext("&View") 

ReportPop.addPopUpf'&Print",PrintPoP) 

examMenu.addPopUpf&Report", ReportPoP) 

examMenu .addT ext("&Qult") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.#Box7.LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 


newView.openC'Highpwr") 
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endmethod 


Object: 
MethodName: 
Source: 


#Page2.#Box7.HIGH_PWR_DEMO_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSats Number 
totalNumberOfGrades Number 
SatPercentage Number 
myQuery Query 
myQueryl Query 
examDatel Date 
examDate2 Date 
PropType String 
endvar 
dodefault 

examDatel =dateC'01 /01 /OO") 
examDate2=date(”12/31/99") 
propType="GT" 

examDatel .vie\w("Enter start date (I.E. 01/01/95)”) 
examDate2.view(''Enter the stop date (I.E. 01/01/95") 
propType.viewC'Enterthe prop type (GT/STM/DSL)") 

Switch 

case propType="GT": 
case propType="STM": 
case propType="DSL”: 
case propType="ALL": 
otherwise: 

msgStop("Problem","Your choice must be either GT, STM, DSL or ALL.") 
return 
endSwitch 

if propType=”ALL” then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 |MatlD_ExamEndDate | HighPwrDemoGrade 1 

HighPwrComments | 

|_EG02 |Check>=~examDate1,<=~examDate2| Check =SAT 1 Check 1 

SHIP.DB I ShipName | PropType] 

|Check_EG02|Check | 


EndQuery 
myQueryl =Query 
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ANSWER: :PRIV:ANSWER.DB 


MATERIAL.DB 1 MatlD_Ship_ShipName_FK4 | MatlD_ExamEndDate IHighPwrDemoGrade | 

HighPwrComments j 

I _EG02 1 Check >=~examDate1, <=~examDate2|Check | Check | 

SHIP.DB I ShipName | PropType| 

|Check_EG02|Check | 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

MATERIAL.DB | MatiD_Ship_ShipName_FK4 |MatlD_ExamEndDate | HighPwrDemoGrade | 

HighPwrComments | 

I _EG02 ICheck >=~examDate1, <=~examDate2| Check =SAT | Check I 

SHIP.DB I ShipName | PropType I 
I Check _EG02 | Check =~propType| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | MatlD_ExamEndDate IHighPwrDemoGrade | 

HighPwrComments | 

I _EG02 I Check >=~examDate1. <=~examDate2|Check | Check | 

SHIP.DB I ShipName | PropType | 

I Check _EG02 [ Check =~propType| 


EndQuery 

endlf 

emptyC'Highpwr") 
emptyC’Highpwrt") 
executeQBE(myQuery, "Highpwr.db") 
executeQBE(myQuery1, "Highpwri .db") 

tbl.attach("Highpwr") 
tbl1 .attach("Highpwr1") 

numberOfSats=tbl.cCount("HighPwrDemoGrade") 

msglnfoCNumber of Sats", "The total number of sat high power demos are" 
+strVal(numberOfSats)) 

totalNumberOfGrades=tbl1.cCountf HighPwrDemoGrade") 
if TotalNumberOfGrades <> 0 then 

msglnfoC'Total Number of Grades", "The total number of high power demos are" 
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Object: 
MethodName: 
Source: 


+strVal(totalNumberOfGrades)) 
SatPercentage=(NumberOfSats/TotalNumberOfGrades)*100 
msglnfoC'Sat Percentage”,'The high power demo sat percentage is" 
+sttVal(SatPercentage)) 

else 

msgStopC'Problem","The total number of grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.C'Percentage")=SatPercentage 

tc.fPropType'^propType 

tc.(”examDate1'^examDatel 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box7.RESET_GRAPH_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tcTcursor 

endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 
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Object: 
MethodName; 
Source: 


Object: 
MethodName; 
Source; 


OPPE_LOE_AREA_QUERY 

Const 

Const 

ViewUnsatOPPE=301 

ViewUnsatOperation=302 

ViewUnsatFireFighting=303 

ViewUnsatMaterial=304 

ViewU nsatT raining=305 

ViewUnsatProgramManagment=306 

ViewU nsatLOE=325 

\/iewSatOPPE=307 

ViewSatOperation=308 

\/iewSatFireFighting=309 

\/iewSatMaterial=310 

ViewSatT raining=311 

ViewSatProgramManagement=312 

\/iewSatLOE=326 

PrintUnsatOPPE=313 

PrintUnsatOperation=314 

PrintUnsatFireFighting=315 

PrintU nsatMaterial=316 

PrintUnsatT raining=317 

PrintUnsatProgramManagment=318 

PrintU nsatLOE=327 

PrintSatOPPE=319 

PrintSatOperation=320 

PrintSatFireFighting=321 

PrintSatMaterial=322 

PrintSatT raining=323 

PrintSatProgramManagement=324 

PrintSatLOE=328 

endConst 


OPPE_LOE_AREA_QUERY 

arrive 

method arrive(var eventlnfo MoveEvent) 
var 

tc Tcursor 

examMenu, View, Print, ReportMenu Menu 

ReportPop PopUpMenu 

AddPoP PopUpMenu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewSatPop PopUpMenu 

ViewUnsatPop PopUpMenu 

PrintSatPop PopUpMenu 

PrintUnsatPop PopUpMenu 

examtype PopupMenu 

endVar 

if eventlnfo-isPreFilterO 
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then 

; This code executes for each object on the form. 

else 

: This code executes only for the form. 

ViewUnsatPop.addTextC’&OPPE Percentage","" .ViewUnsatOppe) 
ViewUnsatPop.addTextrOp&eration Percentage" ,"",ViewUnsatOperation) 
ViewUnsatPop.addTextf&Fire Fighting Percentage","".ViewUnsatFireFighting) 
ViewUnsatPop.addTextf&Material Percentage","",\/iewUnsatMaterial) 
ViewUnsatPop.addTextC&Training Percentage","",ViewUnsatTraining) 

ViewUnsatPop.addTextf&Program Management Percentage","",ViewUnsatProgramManagment) 
ViewUnsatPop.addTextC&LOE Percentage","".ViewUnsatLOE) 

ViewSatPop.addTextC'&OPPE Percentage","",ViewSatOppe) 

ViewSatPop.addTextrOp&eration Percentage","",ViewSatOperation) 

ViewSatPop.addTextf&Fire Fighting Percentage","",\/iewSatFireFighting) 
ViewSatPop.addTextC&Material Percentage","",\/iewSa1Material) 

ViewSatPop.addTextf&Training Percentage","",ViewSatTraining) 

ViewSatPop.addTextr&Program Management Percentage","",ViewSatProgramManagement) 

ViewSatPop.addT extf &LOE Percentage","",\/lewSatLOE) 

PrintUnsatPop.addTextC'&OPPEPercentage","",PrintUnsatOppe) 
PrintUnsatPop.addTextfOp&eration Percentage","",PrintUnsatOperation) 
PrintUnsatPop.addTextC'&Fire Fighting Percentage","",PrintUnsatFireFighting) 
PrintUnsatPop.addTextr&Material Percentage","",PrintUnsatMaterial) 
PrintUnsatPop.addTextC'&Training Percentage","".PrintUnsatTraining) 

PrintUnsatPop.addTextC'&Program Management Percentage","",PrintUnsatProgramManagment) 
PrintUnsatPop.addTextC&LOEPercentage","",PrintUnsatLOE) 

PrintSatPop.addText("&OPPE Percentage","",PrintSatOppe) 

PrintSatPop.addTextfOp&eration Percentage","",PrintSatOperation) 

PrintSatPop.addTextf&Fire Fighting Percentage","",PrintSatFireFighting) 
PrintSatPop.addTextf&Material Percentage","",PrintSatMaterial) 

PrintSatPop.addTextf &Training Percentage","",PrintSatTraining) 

PrintSatPop.addTextr&Program Management Percentage","",PrintSatProgramManagement) 
PrintSatPop.addTextr&LOE Percentage","",PrintSatLOE) 

PrintPop.addT ext("&Graph") 

PrintPop.addPopUpC'&Sat",PrintSatPop) 

PrintPop.addPopUp("&Unsat",PrintUnsatPop) 


ViewPop.addPopUpC'&Sat",ViewSatPop) 

ViewPop.addPopUp("&Unsaf,ViewUnsatPop) 

examMenu.addPopUpC&View", ViewPop) 

examMenu.addPopUPC'&Print", PrintPop) 

examMenu.addT extC'&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

tc.open(" percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 
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endmethod 


Object: 
Method Name: 
Source: 


OPPE_LOE_AREA_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
choiceld Smallint 
m menu 
endVar 

choiceld=eventlnfo.idO 

if eventInfo.isPreFilterO 
then 

: This code executes for each object on the form. 


else 

; This code executes only for the form. 


Switch 

case eventInfo.menuChoiceO =''&Graph"; 
myRep.printC'OppeSum") 
case eventInfo.menuChoiceO ="&Help": 
case eventInfo.menuChoiceO =''&Quit"; 
reply=msgQuestionC’Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
Switch 

case choiceld =ViewSatOppe: 
myRep.openC'oppeperc", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewSatOperation: 
myRep.openC'operperc", WinStyleMaximize) 

hideSpeedBarO 

m.addTextC") 

m.showO 

case choiceld =ViewSatFireFighting: 
myRep.openC'FireFigh", WinStyleMaximize) 

hideSpeedBarO 

m.addTextC") 

m.showO 

case choiceld =\/iewSatMaterial: 
myRep.openC'Matperc", WinStyleMaximize) 

hideSpeedBarO 

m.addTextC") 
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m.showO 

case choiceld =ViewSatTraining : 
myRep.openCTraining", WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =ViewSatProgramManagement: 
myRep.open("ProgramM", WinStyleMaximize) 

hideSpeedBarO 

m.addTexlC"') 

m.showO 

case choicelD =ViewSatLOE: 
myRep.openC'LoeSum", WinStyleMaximize) 

hideSpeedBarO 

m.addText("") 

m.showO 

case choiceld =ViewUnsatOPPE: 
myRep.openC’oppeperl", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC"') 
m.showO 

case choiceld =ViewUnsatOperation: 
myRep.open("operper1", WinStyleMaximize) 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =ViewUnsatFireFighting: 
myRep.openfFireFigl", WinStyleMaximize) 
hideSpeedBarO 
m.addTextf") 
m.showO 

case choiceld =ViewUnsatMaterial: 
myRep.openC'Matperl", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewUnsatTraining; 
myRep.openfTrainini", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld = ViewUnsatProgramManagment: 
myRep.openC'Programl", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld = ViewUnsatLOE: 
myRep.openC'LoeSuml", WinStyleMaximize) 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =PrintSatOppe: 

myRep.printC'oppeperc") 
case choiceld =PrintSatOperation: 
myRep.printCoperperc") 
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Object: 
MethodName: 
Source: 


case choiceld =PrintSatFireFighting; 
myRep.print("FireFigh") 
case choiceld =PrintSatMaterial: 

myRep.printC'Matperc") 
case choiceld =PrintSatTraining: 
myRep.printC'T raining") 
case choiceld =PrintSatProgramManagement: 

myRep.printC'ProgramM") 
case choiceld =PrintSatLOE: 
myRep.printC'LoeSum") 
case choiceld =PrintUnsatOPPE: 

myRep.printC'oppeperl") 
case choiceld =PrintUnsatOperation: 
myRep.printfoperperl") 
case choiceld =PrintUnsatFireFighting: 
myRep.printfFireFig 1") 
case choiceld =PrintUnsatMaterial; 
myRep.printCMatperl") 
case choiceld =PrintUnsatTraining; 
myRep.printfT rainin!") 

case choiceld = PrintUnsatProgramManagment: 
myRep.printC'Programl") 
case choiceld = PrintUnsatLOE: 
myRep.print("LoeSum1") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu, View, Print, ReportMenu Menu 

ReportPop PopUpMenu 

AddPoP PopUpMenu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewSatPop PopUpMenu 

ViewUnsatPop PopUpMenu 

PrintSatPop PopUpMenu 

PrintUnsatPop PopUpMenu 

examtype PopupMenu 

endVar 

ViewUnsatPop.addText("&OPPE Percentage",'"’,ViewUnsatOppe) 
ViewUnsatPop.addTextfOp&eration Percentage","",ViewUnsatOperation) 
ViewUnsatPop.addText("&Fire Fighting Percentage","",ViewUnsatFireFighting) 
ViewUnsatPop.addTextf&Material Percentage","",ViewUnsatMateiial) 
ViewUnsatPop.addText("&Training Percentage","",\/iewUnsatTraining) 

ViewUnsatPop.addTextf&Program Management Percentage","".ViewUnsatProgramManagment) 
ViewUnsatPop.addTextf&LOE Percentage","",ViewUnsatLOE) 

ViewSatPop.addText("&OPPE Percentage","" ,ViewSatOppe) 
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Object: 
Method Name 
Source; 


Object: 


ViewSatPop.addTextC'Op&eration Percentage","".ViewSatOperation) 

ViewSatPop.addTextC&Fire Fighting Percentage","".ViewSatFireFighting) 
ViewSatPop.addTextC&Material Percentage","”,ViewSatMaterial) 

ViewSatPop.addTextC'&Training Percentage","",ViewSatTraining) 

ViewSatPop.addTextr&Program Management Percentage","",ViewSatProgramManagement) 
ViewSatPop.addText("&LOE Percentage" ,"",ViewSatLOE) 

PrintUnsatPop.addTextC&OPPE Percentage","",PrintUnsatOppe) 
PrintUnsatPop.addTexirOp&eration Percentage","",PrintUnsatOperation) 
PrintUnsatPop.addTextC&Fire Fighting Percentage","",PrintUnsatFireFighting) 
PrintUnsatPop.addTextC'&Material Percentage","",PrintUnsatMaterial) 
PrintUnsatPop.addTextC'&Training Percentage","",PrintUnsatTraining) 

PrintUnsatPop.addTextr&Program Management Percentage","",PrintUnsatProgramManagment) 
PrintUnsatPop.addTextC&LOE Percentage" ,"",PrintUnsatLOE) 

PrintSatPop.addText("&OPPE Percentage","",PrintSatOppe) 
PrintSatPop.addTextC'Op&erationPercentage","",PrintSatOperation) 

PrintSatPop.addTextC&Fire Fighting Percentage","",PrintSatFireFighting) 
PrintSatPop.addTextr&Material Percentage","",PrintSatMaterial) 

PrintSatPop.addTextf&Training Percentage","",PrintSatTraining) 

PrintSatPop.addTextC’&Program Management Percentage","",PrintSatProgramManagement) 
PrintSatPop.addText("&LOEPercentage","",PrintSatLOE) 

PrintPop.addText("&Graph") 

PrintPop.addPopUpC'&Sat",PrintSatPop) 

PrintPop.addPopUpC&Unsar,PrintUnsatPop) 


ViewPop.addPopUpC'&Sat",ViewSatPop) 

\/iewPop.addPopUpC'&Unsat",ViewUnsatPop) 

examMenu.addPopUpC&View", ViewPop) 

examMenu.addPopUPf&Print", PrintPop) 

examMenu.addTextC'&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.RESET_GRAPH_BUTTON 
; pushButton 

method pushButton(var eventinfo Event) 
var 

tc Tcursor 
endVar 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.#Box22.#Button34 
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MethodName; pushButton 


Source; 


Object: 
MethodName: 
Source: 


method pushButton(var eventinfo Event) 
var 

new^View tableView 
choice string 
endVar 
choice="SAr 

choice .viewC'Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAT": newView.openC'oppeSum") 
case choice="UNS": newView.openC'oppeSum2") 
otherwise: 

msgStop("Problem","The choices for Exam grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.#Button32 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsOppe Number 
totalNumberOfOppe Number 
satPercentageOppe Number 
myQuery Query 
myQueryl Query 
myQuery2 Query 
exam Date 1 Date 
examDate2 Date 
propType String 
examType String 
endVar 
doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date("12/31/99") 
propType="GT" 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.viewCEnter stop date (I.E. 01/01/95)") 
propType.view("Enter prop type (GT/STM/DSL)") 
s\Mtch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL or ALL only!") 
return 
endSwitch 
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if propType="ALL'' then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType 1 

OverallFinding | 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =LOE | Check =SAT OR 

=EXC OR =GOOD| 

SHIP.DB I ShipName | PropType | 

|_EG01 ICheckl 


EndQuety 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamID_ExamEndDate |ExamType | 

OverallFinding | 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =LOE | Check =SAT OR 

=UNS OR =GOOD OR =EXCl 

SHIP.DB I ShipName | PropType I 
I _EG01 I Check | 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType | 

OverallFinding | 

I Check _EG01 I Check >=~examDate1, <=~examDate2|Check =LOE | Check =UNS | 

SHIP.DB I ShipName | PropType | 

|_EG01 ICheckl 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIVANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType I 

OverallFinding | 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =LOE | Check =SAT OR 

=EXC OR =GOOD| 
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SHIP.DB I ShipName 1 PropType 
1 _EG01 I Check =~propTypel 


EndQuery 


myQueryl =Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate |ExamType | 

OverallFinding I . «A-r/- m-, 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =LOE | Check =SAT OR 

=UNS OR =GOOD OR =EXC| 


SHIP.DB I ShipName | PropType I 
I _EG01 I Check =~propType| 


EndQuery 

myQuetv2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType | 

OverallFinding | . . 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =LOE I Check =UNS | 

SHIP.DB I ShipName | PropType I 
I _EG01 I Check =~propType| 


EndQuery 

endlf 

emptyC'OppeSum") 
empty("OppeSum1") 
empty(’'OppeSum2") 
executeQBE(myQuery,"OppeSum.db") 
executeQBE(myQuery1, "OppeSuml .6b”) 
executeQBE(myQuer^, "OppeSum2.db") 
tbI.attachC'OppeSum") 
tbil .attachC'OppeSumI") 

numberOfSatsOppe=tbl.cCount("OveraIlFinding") 
msglnfo("LOE”,"The total number of sats are " 
+strVal(NumberOfSatsOppe)) 
TotalNumberOfOppe=tbl1.cCount(’’OverallFinding") 
if TotalNumberOfOppe <> 0 then 
msglnfoC'LOE","The total number is" 

+strVal(totalNumberOfOppe)) 

SatPercentageOppe=(numberOfSatsOppe/totalNumberOfOppe)*100 
msglnfoC'LOE","The sat percentage is" 

+strVal(satPercentageOppe)) 
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Object; 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


else 

msgStop("Problem","The total number of LOE's is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.("Percentage")=SatPercentageOppe 

tc.C'PropType")='’LOE" 

tc.("examDate1 ")=examDate1 

tc.C'examDate2'')=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box22.PM_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
choice string 
endVar 
choice="SAT" 

choice.viewC'Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAT": new\/iew.open("Program2") 
case choice="UNS": newView.open("Program3") 
othenvise: 

msgStop("Problem","The choices for Exam grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.0P_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
choice string 
endVar 
choice="SAT" 

choice.viewC'Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAT": newView.open("opSum") 
case choice="UNS": newView.openC'opSum2") 
otherwise; 

msgStop("Problem","The choices for Exam grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


#Page2.#Box22.0PPE_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
choice string 
endVar 
choice="SAT" 

choice.viewC’Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAr'; newView.openC'oppeSum") 
case choice="UNS": newView.openC'oppeSum2") 
othenwise: 

msgStop("Problem","The choices for Exam grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.PM_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myOuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95)") 
propType.viewC'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT': 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
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otherwise: 

msgStopCProblem",'The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewC'Enter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType-’LOE": 
case examType="RELOE": 
othenwise: 

msgStopC'Problem","The choices for Propulsion Type are OPPE, REOPPE, LOE, or RELOE only! ) 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType 1 
I _EG01 I Check =~examTypel 

SHIP.DB I ShipName IPropType | 

I _EG02, _EG01 ICheckl 

PROGRAMM.DB | PMJD_Ship_ShipName_FK61 PMJD_ExamEndDate 
IProgramManageGrade | 

I Check_EG02 I Check >=~examDate1, <=~examDate2l Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 ICheck I 

PROGRAMM.DB I PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate 
IProgramManageGrade | 

I Check_EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT OR =UNSl 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 
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EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType | 

I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate 
|ProgramManageGrade| 

I Check _EG02 I Check >=~examDate1, <=~examDate2lCheck =UNS 


EndQuery 

else 


myQuery=Query 

ANSWER: :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType 
I _EG01 I Check =~examType| 


SHIP.DB I ShipName IPropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate 
IProgramManageGrade | 

I Check_EG02 | Check >=~examDate1, <=~examDate2| Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PM_ID_ExamEndDate 
IProgramManageGrade | 

I Check_EG02 | Check >=~examDate1, <=-examDate2|Check =EXC OR =GOOD OR 

=SAT OR =UNS| 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 
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Object: 
MethodName 
Source: 


EXAM.DB I ExamlD_Ship_ShipName_FK2 \ ExamType | 

I _EG01 I Check =-'examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propTypel 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PM_ID_ExamEndDate 
|ProgramManageGrade| 

I Check_EG02 j Check >=~examDate1, <=~examDate2|Check =UNS 


EndQuery 
end If 

empty("Program1") 

emptyC’P''ogram2") 

empty("Program3") 

executeQBE{myQuery, "Program2.db") 
executeQBE(myQuery1, "Programi .db") 
executeQBE(myQuery2, "ProgramS.db") 
tbi .attach (''Program2") 
tbl1 .attachC'Programl") 

numberOfSatsProgramGrades=tbl.cCountC'ProgramManageGrade") 
msglnfoC'Program Management","The total number of sats are" 
+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCountC'ProgramManageGrade") 
if totalNumberOfProgramGrades <> 0 then 
msgInfofProgram Management","The total number of grades are" 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msglnfoC'Program Management","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The total number of programGrades is 0, you cannot divide by 01") 
return 
endlf 

tc.openC'percenr) 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.C’PropType")="PGM" 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box22.TRAIN_LIST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newVie\w tableView 
choice string 
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Object: 
MethodName: 
Source: 


endVar 

choice="SAT" 

choice.viewC’Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAT": newN/iew.openC'train") 
case choice="UNS"; new\/iew.open("train2") 
otherwise: 

msgStop("Problem",’The choices for Exam grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.TRAINING_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsTrainGrades Number 

totalNumberOfTrainGrades Number 

satPercentageTrainGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

ExamType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.viewC'Enter stop date (I.E. 01/01/95y') 
propType.view("Enter prop type (I.E. 01/01/95)") 
switch 

case propType="GT': 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
othenvise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.view("Enter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE": 
case examType="REOPPE": 
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case examType="LOE": 
case examType="RELOE": 
othsrwis©’ 

msgStop("Problem",’The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamID_Ship_ShipName_FK2 1 ExamType 1 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName I PropType | 

I _EG02, _EG01 I Check | 

TRAINING.DB | Trainin_Ship_ShipName_FK7 | TraininglD_ExamEndDate I 
I Check _EG02 I Check >=~examDate1, <=~examDate2l 

TRAINING.DB I TrainingProgramGrade | 

I Check =SAT OR =GOOD OR =EXCl 


EndQuery 


myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType | 

SHIP.DB I ShipName \ PropType I 
|_EG02,_EG01 I Check I 

TRAINING.DB | Trainin_Ship_ShipName_FK7 | TraininglD_ExamEndDate I 
I Check _EG02 | Check >=~examDate1, <=~examDate2| 

TRAINING.DB I TrainingProgramGrade | 

I Check I 


EndQuery 


myQuery2=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examType | 
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SHIP.DB I ShipName | PropType | 

|_EG02,_EG01 I Check I 

TRAINING.DB | Trainin_Ship_ShipNanne_FK7 | TraininglD_ExamEndDate 
I Check _EG02 I Check >=~examDate1, <=~examDate2| 

TRAINING.DB | TrainingProgramGrade | 

I Check =UNS | 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName | PropType | 

I _EG02, _EG01 I Check =~propType \ 

TRAINING.DB | Trainin_Ship_ShipName_FK7 | TraininglD_ExamEndDate 
I Check _EG02 | Check >=~examDate1, <=~examDate2| 

TRAINING.DB | TrainingProgramGrade | 

I Check =SAT OR =GOOD OR =EXC| 


EndQuery 


myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType | 

SHIP.DB I ShipName | PropType I 

I _EG02, _EG01 I Check =~propType| 

TRAINING.DB | Trainin_Ship_ShipName_FK7 | TraininglD_ExamEndDate 
I Check _EG02 | Check >=~examDate1, <=~examDate2| 

TRAINING.DB | TrainingProgramGrade | 

I Check I 


EndQuery 


myQuery2=Query 
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ANSWER: :PRIV:ANSWER.DB 


EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType | 

SHIP.DB I ShipName | PropType | 

I _EG02, _EG01 I Check =~propTypel 

TRAINING.DB | Trainin_Ship_ShipName_FK7 | TraininglD_ExamEndDate I 
I Check _EG02 I Check >=~examDate1, <=~examDate2| 

TRAINING.DB I TrainingProgramGrade | 

I Check =UNS I 


EndQuery 

endlf 

emptyCTrain") 

emptyC'TrainT') 

emp1yrTrain2") 

executeQBE(myQuery, Train.db") 
executeQBE(myQuery1, "Traini .db") 
executeQBE(myQuery2, "T rain2.db") 
tbI.attachCTrain") 
tbl1.attachC'Train1") 

numberOfSatsTrainGrades=tbl.cCount("TrainingProgramGrade") 
msglnfoC'Training Program",'The total number of sats are" 
+strVal(NumberOfSatsTrainGrades)) 

TotalNumberOfrrainGrades=tbl1 .cCount("T rainingProgramGrade") 
if totalNumberOffrainGrades <> 0 then 
msglnfo('Training Program","The total number of grades are " 
+strVal(totalNumberOfTrainGrades)) 

SatPercentageTrainGrades=(numberOfSateT rainGrades/totalNumberOfT rainGrades)*! 00 
msgInfoCTraining program","The sat percentage of is" 
+strVal(satPercentageTrainGrades)) 

0ls6 

msgStopC’Problem","The total number of training grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageTrainGrades 

tc.("PropType")="TRAIN" 

tc.C'examDatel ")=examDate1 

tc.("examDate2'^=examDate2 

tc.endEditO 

end method 


Object: #Page2.#Box22.MATERIAL_LIST_SHIP_BUTTON 

MethodName: pushButton 
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Source: 


Object; 
MethodName: 
Source: 


method pushButton(var eventinfo Event) 
var 

newView tableView 
choice string 
endVar 
choice="SAT" 

choice.vie\w("Enter SAT or UNS to vie\w the list of ships") 
switch 

case choice="SAT": newView.open("Mat2") 
case choice="UNS": newView.open("Mat3") 
otherwise: 

msgStop("Problem","The choices for Exam grade are SAT, or UNS only!") 
return 
endSwitch 
endmethod 


#Page2.#Box22.MATERIAL_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsMatGrades Number 

totalNumberOfMatGrades Number 

satPercentageMatGrades Number 

myQuery Query 

myQueryl Query 

myQuery2 Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95y') 
propType.view("Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT': 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Probiem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 
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examType.viewfEnter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE'': 
case examType=''REOPPE"; 
case examType="LOE'': 
case examType=’'RELOE": 

otherwise: . 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only! ) 

return 

endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType 1 
I _EG01 I Check =~examTypel 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | MatiD_ExamEndDate |MaterialGrade | 

I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2|Check =SAT OR =EXC OR 

=GOOD| 

SHIP.DB I ShipName I PropType I 
I _EG02 I Check | 


EndQuery 

myQueryl =Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamiD_Ship_ShipName_FK2 | ExamType 1 
1 _EG01 I Check =~examTypel 

MATERIAL.DB I MatlD_Ship_ShipName_FK4 | MatlD_ExamEndDate jMaterialGrade 

^ I Check _EG02, _EG01 I Check >=~examDate1, <=~examDate2lCheck =SAT OR =UNS OR 
=EXC OR =GOOD| 

SHIP.DB I ShipName I PropType | 

I _EG02 I Check | 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examTypel 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 \ MatlD_ExamEndDate 
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IMaterialGradej 



I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2|Check =UNS | 

SHIP.DB I ShipName | PropType | 
l_EG02 I Check I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 i ExamType | 

I _EG01 I Check =~examType| 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | MatlD_ExamEndDate IMaterialGrade I 

I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2|Check =SAT OR =EXC OR 

=GOOD| 

SHIP.DB 1 ShipName 1 PropType | 

I _EG02 I Check =~propType| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType I 
I _EG01 I Check =~examType| 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | MatlD_ExamEndDate IMaterialGrade 

* I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate21Check =SAT OR =UNS OR 

=EXC OR =GOODl 

SHIP.DB I ShipName | PropType | 

I _EG02 I Check =~propType| 


EndQuery 

myQuery2=Query 

ANSWER: :PRiV:ANSWER.DB 

EXAM.DB 1 ExamiD_Ship_ShipName_FK2 | ExamType 1 
I _EG01 I Check =~examTypel 

MATERIAL.DB | MatlD_Ship_ShipName_FK4 | MatlD_ExamEndDate |MaterialGrade| 

I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2|Check =UNS | 

SHIP.DB I ShipName [ PropType I 
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I _EG02 I Check =~propType| 


Object: 
MethodName: 
Source: 


EndQuery 

endlf 

empty('’Mat2.db") 
empty("Mat1 .db") 
emptyC'MatS.db”) 
executeQBE(myQuery, ''Mat2.db") 
executeQBE(myQuery1, "Mat! .db") 
executeQBE(myQuery2, "MatS.db") 
tbl.attach("Mat2") 
tbH.attachfMatl") 

numberOfSatsMatGrades=tbl.cCount("MaterialGrade") 
msglnfoC'Materiar'.'The total number of sats are" 

+strVal(NumberOreatsMatGrades)) 
TotalNumberOfMatGrades=tbl1.cCount("MaterialGrade") 
if totalNumberOfMatGrades <> 0 then 
msglnfoC'Materiar'.'The total number of grades are" 
+strVal(totalNumberOfMatGrades)) 

SatPercentageMatGrades=(numberOfSatsMatGrades/totalNumberOfMatGrades)*100 
msglnfoC'Material","The sat percentage of is" 

+strVal(satPercentageMatGrades)) 

else 

msgStopC'Problem",'The total number of material grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.open(" percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageMatGrades 

tc.("PropType")="MAT" 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box22.FIREFIGHT_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsFireGrades Number 
totalNumberOfFireGrades Number 
satPercentageFireGrades Number 
myQuery Query 
myQueryl Query 
myQuer^ Query 
examDatet Date 
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examDate2 Date 
PropType String 
examType String 
endVar 


doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date(" 12/31 /99") 
propType=''Gr' 
examfype=''OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDAte2.viewC'Enter stop date (I.E. 01/01/95)") 
propType.view("Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT"; 
case propType="STM": 
case propType="DSL": 
case propType="ALL'': 

otherwise: . 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!) 

return 

endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType=''OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
othGrwisBi 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 


if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK21 ExamType | 

I _EG01 1 Check =~examType | 

SHIP.DB I ShipName | PropType | 

|_EG03,_EG01 [Check | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireFightingl_ExamEndDate | 
I Check _EG03 I Check >=~examDate1, <=~examDate21 

FIREFIGH.DB 1 FireFightingGrade | 

1 Check =SAT OR =EXC OR =GOOD| 


EndQuery 

myQuery1=Query 
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ANSWER: :PR1V:ANSWER.DB 


EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examType i 

SHIP.DB I ShipName I PropType | 

1_EG03,_EG01 I Check I 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireFightingl_ExamEndDate [ 
I Check _EG03 I Check >=~examDate1, <=~examDate2| 

FIREFIGH.DB I FireFightingGrade | 

I Check =SAT OR =UNS OR =EXC OR =GOOD| 


EndQuery 

myQuery2=Query 

ANSWER; :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examType | 

SHIP.DB I ShipName \ PropType | 

|_EG03,_EG01 [Check 1 

FIREFIGH.DB | FireFig_Ship_ShipName_FK51 FireFightingl_ExamEndDate | 
I Check _EG03 | Check >=~examDate1, <=~examDate2| 

FIREFIGH.DB | FireFightingGrade | 
lCheck=UNS| 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV;ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType | 

SHIP.DB I ShipName I PropType I 

I _EG03, _EG01 I Check =~propType | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireFightingl_ExamEndDate | 
I Check _EG03 | Check >=~examDate1, <=~examDate2| 

FIREFIGH.DB [ FireFightingGrade | 

I Check =SAT OR =EXC OR =GOOD| 


EndQuery 
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myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType | 

SHIP.DB I ShipName | PropType | 

I _EG03, _EG01 I Check =~propType | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK51 FireFightingl_ExamEndDate | 
I Check _EG03 | Check >=~examDate1, <=~examDate2| 

FIREFIGH.DB | FireFightingGrade | 

I Check =SAT OR =UNS OR =EXC OR =GOOD| 


EndQuery 

myQuety2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType | 

SHIP.DB I ShipName | PropType | 

I _EG03, _EG01 I Check =~propType | 

FIREFIGH.DB | FireFig_Ship_ShipName_FK5 | FireFightingl_ExamEndDate | 
I Check _EG03 | Check >=~examDate1, <=~examDate2| 

FIREFIGH.DB | FireFightingGrade | 

I Check =UNSl 


EndQuery 

endlf 

emptyC'Firel") 

empty("Fire2") 

empty("Fire3") 

executeQBE(myQuery, "Fire1 .db") 
executeQBE(myQuery1, ''Fire2.db") 
executeQBE(myQuer^, "Fire3.db") 
tbl.attach(Tire1") 
tbl1 .attach("Fire2") 

numberOfSatsFireGrades=tbl.cCount("FireFightingGrade") 
msgInfoC'Fire Fighting","The total number of sats are" 
+strVal(NumberOfSatsFireGrades)) 
TotalNumberOfFireGrades=tbl1.cCount("FireFightingGrade") 
if TotalNumberOfFireGrades <> 0 then 
msgInfoC'Fire Fighting","The total number of grades are" 
+strVal(totalNumberOfFireGrades)) 

SatPercentageFireGrades=(numberOfSatsFireGrades/totalNumberOfFireGrades)*100 
msgInfoC'Fire Fighting","The sat percentage is" 
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+strVal(satPercentageFireGrades)) 


Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


msgStop("Problem”,’The total number of fire fighting grades is 0, you cannot divide by 0!") 
return 
end If 

tc.openCpercent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage'')=SatPercentageFireGrades 

tc.("PropType")="F/F" 

tc.("examDate1 '')=examDate1 

tc.rexamDate2")=examDate1 

tc.endEditO 

endmethod 


#Page2.#Box22.FF_UST_SHIPS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

nevifView tableViev/ 
choice string 
endVar 
choice="SAT" 

choice.viewC'Enter SAT or UNS to view the list of ships") 
switch 

case choice="SAT"; newView.open("fire1") 
case choice="UNS": newView.openC’fireS") 
otherv/ise: 

msgStopCProblem","The choices for Exam grade are SAT, or UNS only!) 
return 
endSwitch 
endmethod 


#Page2.#Box22.0PERATION_PERCENT_BUTTON 
; pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsOperationGrades Number 

totalNumberOfOperationGrades Number 

satPercentageOperationGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

endVar 
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examDatel =date(''01/01/00") 
examDate2=dateri 2/31 /99") 
propType="GT" 
doDefault 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95/') 
propType.view("Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT’: 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB i ExamlD_Ship_ShipName_FK2 | ExamType | 

1 _EG01 1 Check =OPPE | 

OPERATIO.DB | Operati_Ship_ShipName_FK31 OperationlD_ExamEndDate 1 
I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | OperationGrade | 

I Check =SAT OR =GOOD OR =EXC| 

SHIP.DB I ShipName [ PropType | 

I _EG02 1 Check | 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/WI.DB I ExamlD_Ship_ShipName_FK21 ExamType 1 
I _EG01 I Check =OPPE | 

OPERATIO.DB 1 Operati_Ship_ShipName_FK31 OperationlD_ExamEndDate | 
I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate21 

OPERATIO.DB | OperationGrade 1 
I Check 1 

SHIP.DB I ShipName | PropType | 

1 _EG02 I Check 1 
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EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType 1 
I _EG01 I Check =OPPE I 

OPERATIO.DB ] Operati_Ship_ShipName_FK3 I OperationlD_ExamEndDate I 
I Check _EG02, _EG01 I Check >=~examDate1, <=~examDate2l 

OPERATIO.DB I OperationGrade | 

I Check =UNS I 

SHIP.DB I ShipName | PropType | 

I _EG02 I Check I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 \ ExamType I 
I _EG01 I Check =OPPE I 

OPERATIO.DB I Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate | 
I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2l 

OPERATIO.DB | OperationGrade | 

I Check =SAT OR »GOOD OR =EXC| 

SHIP.DB I ShipName I PropType | 

I _EG02 I Check =~propTypel 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =OPPE I 

OPERATIO.DB I Operati_Ship_ShipName_FK31 OperationlD_ExamEndDate \ 
\ Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2| 

OPERATIO.DB | OperationGrade I 
I Check I 

SHIP.DB I ShipName | PropType | 
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I _EG02 I Check =~propType| 


EndQuery 

myQuery2=Query 

ANSWER: :PR1V:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType 1 
1 _EG01 I Check =OPPE | 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | OperationlD_ExamEndDate I 
I Check _EG02, _EG01 | Check >=~examDate1, <=~examDate2l 

OPERATIO.DB | OperationGrade | 

I Check =UNS | 

SHIP.DB I ShipName | PropType | 

I _EG02 I Check =~propType| 


EndQuery 

endlf 

emptyC'OpSum") 

emptyfOpSumT') 

emptyCOpSuni2") 

executeQBE(myQuery, "OpSum.db") 
executeQBE(myQuery1, "OpSumI .db") 
executeQBE(myQuery2, ''OpSum2.db") 
tbl.attachC'OpSum") 
tbl1 .attach("OpSum1") 

numberOfSatsOperationGrades=tbl.cCount("OperationGrade") 
msglnfoC'Operations",'The total number of sats are" 

+str\/al(NumberOfSatsOperationGrades)) 
TotalNumberOfOperationGrades=tbl1.cCount("OperationGrade") 
if TotalNumberOfOperationGrades <> 0 then 
msglnforOperations","The total number grades are" 

+strVaI(totalNumberOfOperationGrades)) 

SatPercentageOperationGrades=(numberOfSatsOperationGrades/totalNumberOfOperatonGrades)*100 

msglnfoCOperations",'The sat percentage is" 

+strVal(satPercentageOperationGrades)) 

gIsb 

msgStop('’Problem'',"The total number of operation grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.CPercentage")=SatPercentageOperationGrades 
tc.rPropType")="OPS" 
tc.fexamDatel ")=examDate1 
tc.(''examDate2")=examDate2 
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Object: 
MethodName: 
Source: 


tc.endEditO 

endmethod 


#Page2.#Box22.0PPE_PERCENTAGE_BUTTON 

pushButton 

method pushButton(var eventlnfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsOppe Number 
totalNumberOfOppe Number 
satPercentageOppe Number 
myQuery Query 
myQueryl Query 
myQuery2 Query 
examDatel Date 
examDate2 Date 
propType String 
examType String 
endVar 
doDefault 

examDatel =dateC'01 /01/00") 
examDate2=date("12/31/99") 
propType="GT" 

examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.viewrEnterstop date (I.E. 01/01/95/') 
propType.view("Enter prop type (GT/STM/DSL)") 
sw/itch 

case propType="GT"; 
case propType="STM": 
case propType="DSL": 
case propType=''ALL": 
othenwise: 

msgStop("Problem",'The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 1 ExamlD_ExamEndDate lExamType 1 

OverallFinding 1 

I Check _EG01 1 Check >=~examDate1, <=~examDate21Check =OPPE 1 Check =SAT OR 

=EXC OR =GOODl 

SHIP.DB I ShipName | PropType | 

|_EG01 I Check I 
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EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType | 

OverallFinding I 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =OPPE | Check =SAT OR 

=UNS OR =GOOD OR =EXC| 

SHIP.DB I ShipName | PropType I 
I _EG01 I Check ] 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate [ExarnType | 

OverallFinding j 

I Check _EG01 | Check >=~examDate1, <=~examDate2|Check =OPPE | Check =UNS | 

SHIP.DB I ShipName | PropType 1 
I _EG01 I Check | 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType | 

OverallFinding | 

I Check _EG01 | Check >=~examDate1, <=~examDate2lCheck =OPPE | Check =SAT OR 

=EXC OR =GOOD| 

SHIP.DB I ShipName | PropType | 

I _EG01 I Check =~propType| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamlD_ExamEndDate lExamType | 

OverallFinding I 

I Check _EG01 I Check >=~examDate1, <=~examDate2|Check =OPPE | Check =SAT OR 

=UNS OR =GOOD OR =EXC| 
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SHIP.DB I ShipName 1 PropType | 
I _EG01 I Check =~propTypel 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType | 

OverallFinding | 

I Check _EG01 | Check >=~examDate1, <=~examDate2lCheck =:OPPE | Check =UNS | 

SHIP.DB I ShipName I PropType | 

I _EG01 I Check =~propType| 


EndQuery 

endlf 

emptyfOppeSum") 

empty("OppeSum1") 

emptyfOppeSum2'') 

executeQBE(myQuery, "OppeSum.db") 

execiiteQBE(myQuery1, "OppeSumI .db") 

executeQBE(myQuery2, "OppeSum2.db") 

tbl .attach C'OppeSum") 

tbl1 .attachfOppeSuml") 

numberOfSatsOppe=tbl.cCount("OverallFinding") 

msglnfo("OPPE",'The total number of sats are" 

+strVal(NumberOfSatsOppe)) 
TotalNumberOfOppe=tbl1.cCount("OverallFinding") 
if TotalNumberOfOppe <> 0 then 
msginfoC'OPPE","The total number is" 

+strVai(totalNumberOfOppe)) 

SatPercentageOppe=(numberOfSatsOppe/totalNumberOfOppe)*100 
msglnfoC'OPPE",'The sat percentage is" 

+strVal(satPercentageOppe)) 

else 

msgStop("Problem",'The total number of OPPE's is 0, you cannot divide by 0!”) 
return 
endlf 

tc.openC’percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageOppe 

tc.("PropType")="OPPE" 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 
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Object; 
MethodName: 
Source: 


Object: 
MethodName 
Source; 


PROGRAM_STATS_QUERY 

Const 

Const 

ViewProgramI =301 
ViewProgram2=302 
\/iewProgram3=303 
ViewProgram4=304 
ViewProgram5=305 
ViewProgram6=306 
ViewProgram7=307 
\/iewProgram8=308 
ViewProgram9=309 
ViewProgramI 0=310 
ViewProgram11=311 
ViewProgramI 2=312 
ViewProgramI 3=313 
ViewProgramI 4=314 
PrintProgram1=315 
PrintProgram2=316 
PrintProgram3=317 
PrintProgram4=318 
PrintProgram5=319 
PrintProgram6=320 
PrintProgram7=321 
PrintProgram8=322 
PrintProgram9=323 
PrintProgramI 0=324 
PrintProgram11 =325 
PrintProgramI 2=326 
PrintProgramI 3=327 
PrintProgramI 4=328 
PrintProgramI 5=329 
endConst 


PROGRAM_STATS_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tcTcursor 

examMenu, View, Print, ReportMenu Menu 
PrintPop PopUpMenu 
ViewPop PopUpMenu 
ViewProgramPop PopUpMenu 
PrintProgramPop PopUpMenu 
examtype PopupMenu 
endVar 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 
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Object: 
MethodName 
Source; 


else 

; This code executes only for the form. 

PrintPop.addTextC’Bearing &Records",'"',PrintProgram1) 
PrintPop.addText("&BWF\Ar,"",PrintProgram2) 
PrintPop.addText("&DETA’’,"”,PrintProgram3) 
PrintPop.addTextCD&JWTT","'',PrintProgram4) 
PrintPop.addTextC&Electrical Safety",'"'.PrintProgramS) 
PrintPop.addTextr&FOQM",’"',PrintProgram6) 
PrintPop.addTextf&Hearing Consen/ation","",PrintProgram7) 
PrintPop.addTextfLe&gal Records","".PrintProgramS) 
PrintPop.addTextf&LOQM","",PrintProgramS) 
PrintPop.addText("&MGTESR","",PrintProgram10) 
PrintPop.addText("&OLV”,"",PrintProgram11) 
PrintPop.addTextfO&perating Logs","",PrintProgram12) 
PrintPop.addT extr&QA”,"",PrintProgram13) 
PrintPop.addTextC&Tag Ouf’,"",PrintProgram14) 
PrintPop.addTextC&Graph","",PrintProgram15) 

ViewPop.addTextC'Bearing &Records","”,ViewProgram1) 
ViewPop.addTextC'&BWFW","",\/iewProgram2) 
ViewPop.addText("&DETA","",ViewProgram3) 
\/iewPop.addText("D&JWTT","",\/iewProgram4) 
ViewPop.addTextC'&Electrical Safety" ,"",ViewProgram5) 
ViewPop.addTextf&FOQM","",\/iewProgram6) 
ViewPop.addTextC'&Hearing Conservation","",ViewProgram7) 
ViewPop.addTextfLe&gal Records","",ViewProgramS) 
ViewPop.addTextC&LOQM","",\/iewProgram9) 
\/iewPop.addTextC&MGTESR","",\/iewProgram10) 
ViewPop.addTextC&OLV","",ViewProgram11) 
ViewPop.addTextC'O&perating Logs","",ViewProgram12) 
ViewPop.addT ext("&QA","",\/iewProgram 13) 

ViewPop.addText("&Tag Our,"",ViewProgram14) 


examMenu.addPopUpC&View", ViewPop) 

examMenu.addPopUP("&Print", PrintPop) 

examMenu.addText("&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

tc.open(" percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


PROGRAM_STATS_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 
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myRep Report 
reply String 
choiceld Smallint 
m menu 
endVar 

choiceld=eventlnfo.idO 

if eventlnfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 


Switch 

case eventInfo.menuChoiceO ="&Help": 

case eventInfo.menuChoiceO =”&Quit"; 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 
endSwitch 
Switch 

case choiceld =\/iewProgram1: 
myRep.openC'Bearing") 

hideSpeedBarO 

m.addTextC") 

m.showO 

case choiceld =\/iewProgram2: 
myRep.openf'BWFW") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewProgram3: 
myRep.openC'DETA") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewProgram4: 
myRep.openC'DJWTT") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =\/iewProgram5: 
myRep.openC'Electric") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =\/iewProgram6: 
myRep.openC’FOQM") 
hideSpeedBarO 
m.addTextC") 
m.showO 
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case choiceld =\/iewProgram7: 
myRep.openC'Hearing") 
hideSpeedBarO 
m.addTextC") 

m.showO 

case choiceld =ViewProgram8: 
myRep.openC'LegalRec") 
hideSpeedBarO 
m.addText("") 

m.showO 

case choiceld =ViewProgram9: 
myRep.openC'LOQM") 

hideSpeedBarO 

m.addText("") 

m.showO 

case choiceld =ViewProgram10: 
myRep.openC'MGTESR") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewProgram11; 
myRep.openC'OLV) 

hideSpeedBarO 

m.addTextC") 

m.showO 

case choiceld =ViewProgram12: 
myRep-openfOPLOGS") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewProgram13; 
myRep.openC'QA") 
hideSpeedBarO 
m.addTextC") 
m.showO 

case choiceld =ViewProgram14: 
myRep.open('T agOut") 
hideSpeedBarO 
m.addTextC”) 
m.showO 

case choiceld =PrintProgram1; 

myRep.print("Bearing") 
case choiceld =PrintProgram2: 

myRep.printCBWFW") 
case choiceld =PrintProgram3: 

myRep.printCDETA") 
case choiceld =PrintProgram4: 
myRep.printCDJWTT") 
case choiceld =PrintProgram5: 
myRep.print("Electric") 
case choiceld =PrintProgram6; 
myRep.printCFOQM") 
case choiceld =PrintProgram7: 

myRep.print("Hearing") 
case choiceld =PrintProgram8: 



Object; 
MethodName: 
Source: 


myRep.printC'LegalRec") 
case choiceld =PrintProgram9: 
myRep.printC'LOQM") 
case choiceld =PrintProgram10: 
myRep.printC'MGTESR") 
case choiceld =PrintProgram11; 
myRep.printC'OLV") 
case choiceld =PrintProgram12: 

myRep.prlntC'OPLOGS") 
case choiceld =PiintProgram13: 

myRep.printCQA") 
case choiceld =PrintProgram14: 
myRep.printCT agOut") 
case choiceld =PrintProgram15: 
myRep.printfProgStat'') 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu, View, Print, ReportMenu Menu 
PrintPop PopUpMenu 
ViewPop PopUpMenu 
ViewProgramPop PopUpMenu 
PrintProgramPop PopUpMenu 
examtype PopupMenu 
endVar 

PrintPop.addTextfBearing &Records","'',PrintProgram1) 

PrintPop.addTextC'&BWFW","”,PrintProgram2) 

PrintPop.addTextC'&DETA'',"",PrintProgram3) 

PrintPop.addTextC'D&JWrr’,"",PrintProgram4) 

PrintPop.addT ext("&Electrical Safety","",PrintProgram5) 

PrintPop.addTextC'&FOQM","",PrintProgram6) 

PrintPop.addTextf&Hearing Conservation","",PrintProgram7) 

PrintPop.addText("Le&gal Records","",PrintProgram8) 

PrintPop.addTextC'&LOQM","",PrintProgram9) 

PrintPop.addText("&MGTESR","",PrintProgram10) 

PrintPop.addTextr&OLV’,"",PrintProgram11) 

PrintPop.addTextfO&perating Logs","",PrintProgram12) 
PrintPop.addT extC'&QA","",PrintProgram 13) 

PrintPop.addT extf &T ag Out","",PrintProgram14) 
PrintPop.addT ext("&Graph'','”',PrintProgram15) 

ViewPop.addTextC'Bearing &Records",”",ViewProgram1) 
ViewPop.addTextC'&BWFW","”,ViewProgram2) 
\/iewPop.addText("&DETA","",ViewProgram3) 
ViewPop.addText("D&JWTT","”,ViewProgram4) 
ViewPop.addT ext("&Electrical Safety","" ,\/iewProgram5) 
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Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


ViewPop.addTextC&FOQM","",\/iewProgram6) 
ViewPop.addTextr&Hearing Conservation","".ViewProgram?) 
ViewPop.addTextfLe&gal Records","".ViewProgramS) 
ViewPop.addTextC’&LOQM","",\/iewProgram9) 
\/iewPop.addText("&MGTESR","",ViewProgram10) 
ViewPop.addTextr&OLV","’',\/iewProgram11) 
Vie\wPop.addText("0&perating Logs","",ViewProgram12) 
ViewPop.addTextC’&QA","",\/ie\wProgram13) 
Vie\wPop.addTextC&TagOuf,"",ViewProgram14) 


examMenu.addPopUpC'&View", ViewPop) 
examMenu.addPopUPC'&Print", PrintPop) 
examMenu.addText("&Quit") 

examMenu-showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page2.#Box3.RESET_GRAPH_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tcTcursor 

endVar 

tc-openCpercenf) 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.#Box3.HEAT_STRESS_BUTTON 
; pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberO^atsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuery2 Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 
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doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date("12/31/99") 
propType="GT" 
examfype="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95/') 
propType.viewC'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT': 
case propType=''STM": 
case propType="DSL": 
case propType=''ALL": 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.vlewC'Enter(OPPE/REOPPEA.OE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check «~examType| 

SHIP.DB I ShipName [PropType | 

1 _EG02, _EG01 ICheck | 

PROGRAMM.DB 1 PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |HeatStress | 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 

EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB 1 ShipName |PropType 1 

I _EG02, _EG01 [Check | 
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IHeatStress 


PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate 

^ I Check _EG02 1 Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT OR =UNSl 
EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType I 
I _EG02, _EG01 [Check =~propTypel 

PROGRAMM.DB I PM_ID_Ship_ShipName_FK61 PMJD_ExamEndDate IHeatStress | 

I Check _EG02 i Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 

EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 [Check =~propType[ 

PROGRAMM.DB [ PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate [HeatStress 

[ Check _EG02 [ Check >=~examDate1, <=~examDate2[Check =EXC OR =GOOD OR 

=SATOR =UNS[ 

EndQuery 

endlf 

emptyC'HEATSTRS") 
emptyC'HEATSTRI") 
executeQBE(myQuery, "HEATSTRS.db") 
executeQBE(myQuery1, "HEATSTR1 .db") 
tbLattachCHEATSTRS") 
tbl1.attachC’HEATSTRr) 

numberOfSatsProgramGrades=tbl.cCount("HeatStress") 
msgInfoC'Heat Stress","The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 

TotalNumberOfProgramGrades=tbl1.cCount(”HeatStress") 

If totalNumberOfProgramGrades <> 0 then 
msglnfoC'HeatStress","The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msglnfofHeat Stress","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 
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Object: 
MethodName: 
Source: 


else 

msgStop("Problem","The total number of Heat Stress grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="HEAT" 

tc.("PropType1 ")=examType 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.BEARING_RECORDS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date(“12/31/99'’) 
propType="GT" 
examType="OPPE" 

examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.viewC’Enter stop date (I.E. 01/01/95)") 
propType.view^C'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT"; 
case propType="STM"; 
case propType=”DSL": 
case propType="ALL": 
otherwise: 

msgStop{"Problem","The choices for Propuision Type are GT, STM, DSL or ALL only!") 
return 
endSwitch 
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examType.viewC'Enter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE": 
case examType="REOPPE'': 
case examType="LOE": 
case examType=”RELOE": 
otherwise: 

msgStop(”Problem",'The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!”) 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: ;PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType | 

I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |BearingRecsGrade 

I 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate |BearingRecsGrade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 
I _EG01 I Check =~examTypel 
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SHIP.DB I ShipName |PropType 1 
I _EG02, _EG01 [Check =~propTypej 

PROGRAMM.DB j PMJD_Ship_ShipName_FK6 j PMJD_ExamEnciDate jBearingRecsGrade 

^ I Check _EG02 j Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQueryl =Query 

ANSWER: :PR1V:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 j ExamType 1 
I _EG01 i Check =~examType| 

SHIP.DB I ShipName [PropType j 
I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB [ PMJD_Ship_ShipName_FK6 [ PMJD_ExamEndDate |BearingRecsGrade[ 

[ Check _EG02 j Check >=~examDate1, <=~examDate2[Check =SAT OR -UNS OR 

=GOOD OR =EXC [ 


EndQuery 

endlf 

emptyC'BEARREC") 
emptyC’BEARRECI") 
executeQBE(myQuery, "BEARREC.db") 
executeQBE(myQuery1, ''BEARREC1 .db") 
tbI.attachC'BEARREC") 
tbH.attachrBEARRECr') 

numberOfSateProgramGrades=tbl.cCountrBearingRecsGrade’’) 

msgInfoC'Bearing Records","The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 

TotalNumberOfProgramGrades=tbl1.cCount("BearingRecsGrade") 

if totalNumberOfProgramGrades <> Othen 
msgInfoC'Bearing Records","The total number of grades are" 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades) 100 

msgInfoC'Bearing Records","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

0|S0 

msgStop("Problem","The total number of Bearing Records Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.rPropType")="BRG" 

tc.CexamDatel ")=examDate1 
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Object: 
MethodName; 
Source: 


tc.("examDate2")=examDate2 
tc.("propType1 ")=examType 
tc.endEditO 
endmethod 


#Page2.#Box3.LEGAL_RECORDS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOff»rogramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryt Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01 /OO") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.viewC'Enter stop date (I.E. 01/01/95^’) 
propType.viewfEnter prop type (GT/STM/DSL)") 
sv^ritch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

sv\^ch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
othenwise: 

msgStopC’Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 
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if propType="ALL" then 
myQuery=Query 

ANSWER; :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck I 

PROGRAMM.DB j PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate jLegalRecsGrade 

^ I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: ;PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType I 
I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |LegalRecsGrade | 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType | 

|_EG02,_EG01 ICheck =~propTypel 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate ILegalRecsGrade 

' I Check _EG02 I Check >=~examDate1, <=~examDate2lCheck =EXC OR =GOOD OR 

=SAT| 


EndQuery 
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myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 


Object: 
MethodName 


EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB [ PMJD_Ship_ShipName_FK6 j PMJD_ExamEndDate [LegalRecsGrade j 

I Check _EG02 [ Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

endlf 

emptyC'LEGALREC") 
emptyC'LGALRECr) 
executeQBE(myQuery, "LEGALREC.d b”) 
executeQBE(myQuery1, "LGALREC1 .db") 
tbl.attach("LEGALREC") 
tbIl.attachCLGALRECI") 

numberOfSatsProgramGrades=tbl.cCountC'LegalRecsGrade") 
msgInfoC'Legal Records","The total number of sate are" 

+strVal(NumberOfSateProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount(''LegalRecsGrade") 
if totalNumberOfProgramGrades <> 0 then 
msgInfoC'Legal Records",The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSateProgramGrades/totalNumberOfProgramGrades)*100 
msgInfoC'Legal Records","The sat percentage is" 

+str\/al(satPercentageProgramGrades)) 

6lS6 

msgStopC’Problem","The total number of Legal Records Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.C'Percentage")=SatPercentageProgramGrades 

tc.C'PropType'')="LGL" 

tc.fPropTypel ")=examType 

tc.("examDate1 ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.BWFW_BUTTON 

pushButton 
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Source: 


method pushButton(var eventinfo Event) 
var 

to tCursor 
tb! table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examfype="OPPE" 

examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.viev/("Enter stop date (I.E. 01/01/95/') 
propType.viewC'Enter prop type (GT/STM/DSL)") 
switch 

case propType="Gr': 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE"; 
otherwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRiV:ANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 | ExamType i 
I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 
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I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 I PMJD_ExamEndDate |BWFW_Grade 

^ I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 
=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExatnType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate lBWFW_Gradel 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXCl 


EndQuery 

else 

myQuery=Query 
ANSWER; ;PRIV;ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |BWFW_Grade 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIVANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType | 
I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck =~propType| 
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Object: 
MethodName: 
Source: 


PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 1 PM_ID_ExamEndDate |BWFW_Grade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC| 


EndQuery 

endlf 

emptyC'BWFW") 

empty("BWFW1") 

executeQBE(myQuery, "BWFW.db”) 
executeQBE(myQuery1, "BWFW1 .db") 
tbl.attachfBWFW") 
tbl1.attach("BWFW1") 

numberOfSatsProgramGrades=tbl.cCountC’BWFW_Grade'') 
msglnfo("BWFW","The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount(''BWFW_Grade") 
if totalNumberOfProgramGrades <> 0 then 
msglnfoC'BWFW'.'The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msglnfoCBWFW",*The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The total number of BWFW Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.fPercentage")=SatPercentageProgramGrades 

tc.C'PropType")="BWFW" 

tc.C’PropTypel '’)=examType 

tc.fexamDatel ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.LOQM_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 
totalNumberOfProgramGrades Number 
satPercentageProgramGrades Number 
myOuery Query 
myQuery! Query 
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myQuery2 Query 
examDatel Date 
examDate2 Date 
PropType String 
exanrrType String 
endVar 

doDefauit 

examDatel =date(’'01 /01 100 ”) 
examDate2=dateC'12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.viewrEnter stop date (I.E. 01/01/95y') 
propType.view("Enter prop type (GT/STM/DSL)") 
switch 

case propType=”GT": 
case propType="STM"; 
case propType="DSL": 
case propType="ALL"; 
othenwise: 

msgStop(''Problem",'The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewC'Enter(OPPeREOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
othenwise: 

msgStopC'Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE oniyl") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER; :PRiV:ANSWER.DB 

EX/\M.DB I ExamiD_Ship_ShipName_FK2 | ExamType | 

1 _EG01 1 Check =~examTypel 

SHIP.DB 1 ShipName IPropType 1 
|_EG02,_EG01 ICheckI 

PROGR/\MM.DB | PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |LOQM_Grade 

I 

I Check _EG02 1 Check >=~examDate1, <=~examDate21Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 
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myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType I 
I _EG02, _EG01 ICheck I 

PROGRAMM.DB | PMJD_Ship_ShipName_FK61 PMJD_ExamEndDate lLOQM_Grade | 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC| 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB j PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |LOQM_Grade 

I Check _EG02 j Check >=-~examDate1, <=~examDate2lCheck =EXC OR =GOOD OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 j ExamType | 

I _EG01 I Check =~examTypej 

SHIP.DB I ShipName jPropType j 
I _EG02, _EG01 [Check =~propType[ 

PROGRAMM.DB [ PM_ID_Ship_ShipName_FK6 [ PM_ID_ExamEndDate [LOQM_Grade [ 

I Check _EG02 [ Check >=~examDate1, <=~examDate2[Check =SAT OR =UNS OR 

=GOOD OR =EXC[ 


EndQuery 

endlf 


empty ("LOQM") 
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Object: 
MethodName 
Source: 


emptyC'LOQMI") 

executeQBE(myQuery, "LOQM.db") 
executeQBE(myQuefy1, "LOQM1 .db") 
tbI.attachC'LOQM") 
tbl1.attach("LOQM1") 

numberOfSatsProgramGrades=tbl.cCount("LOQM_Grade") 
msglnfo("LOQM",The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount("LOQM_Grade") 
if totalNumberOfProgramGrades <> 0 then 
msglnfo("LOQM","The total number of grades are " 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades) 100 

msglnfo("LOQM";The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

6iS6 

msgStopC'Problem",'The total number of LOOM Grades is 0. you cannot divide by 0!") 
return 
end If 

tc.openC'percent") 

TC.editO 

tc-insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="LOQM" 

tc.fPropTypel ")=examType 

tc.("examDate1 ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.DETA_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date("12/31 199 ") 
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propType="GT’ 

examType="OPPE'' 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95^') 
propType.viewfEnter prop type (GT/STM/DSL)") 
switch 

case propType="GT': 
case propType="STM": 
case propType="DSL": 
case propType="ALL"; 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
otherwise; 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB 1 ShipName jPropType | 

|_EG02,_EG01 [Check I 

PROGR/\MM.DB j PM_lD_Ship_ShipName_FK6 j PM_ID_ExamEndDate |DETA_Grade 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 [ ExamType 
I _EG01 j Check =~examType| 

SHIP.DB I ShipName jPropType | 

I _EG02, _EG01 [Check [ 
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PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 \ PM_ID_ExamEndDate |DETA_Grade 1 

1 Check _EG02 1 Check >=~examDate1, <=~examDate2lCheck =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType I 
I _EG02, _EG01 ICheck =~propTypel 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate lDETA_Grade 

^ I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propTypel 

PROGRAMM.DB [ PM_ID_Ship_ShipName_FK6 I PMJD_ExamEndDate |DETA_Grade I 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

endlf 

emptyC'DETA") 

emptyC'DETAr) 

executeQBE(myQuery, "DETA.db") 
executeQBE(myQuery1, "DETA1 .db") 
tbl.attachCDETA") 
tbl1.attach("DETA1") 

numberOfSatsProgramGrades=tbl.cCount("DETA_Grade") 
msglnfo("DETA","The total number of sats are" 
+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl 1 .cCount("DETA_Grade”) 
if totalNumberOfProgramGrades <> 0 then 
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Object: 
Method Name: 
Source: 


msglnfo("DETA",’The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades) 100 

msglnfo("DETA","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

gIsg 

msgStop("Problem",'The total number of DETA Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percenf) 

TC.editO 

tc.insertRecordO 

tc.rPercentage")=SatPercentageProgramGrades 

tc.(TropType")="DETA" 

tc.CPropTypel ")=examType 

tc.fexamDatel ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.MGTESR_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbil table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuery2 Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=dateC'12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.viewCEnter stop date (I.E. 01/01/95y') 
propType.viewC'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT': 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
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otherwise: 

msgStop("Problem";The choices for Propulsion Type 


are GT, STM. DSL, ALL only!") 


return 

endSwitch 


examType.viewC’Enter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE": 
case examType="REOPPE"; 
case examType="LOE": 
case examType="RELOE'': 
otherwise: 

msgStopC'Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!) 
return 
endSwitch 


if propType="ALL" then 
myQuery=Query 

ANSWER: :PR1V:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType 1 
I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 

1_EG02,_EG01 IChecki 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |MGTESR_Grade 

' I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 i ExamType I 
I _EG01 I Check =~examTypel 

SHIP.DB I ShipName jPropType I 
I _EG02, _EG01 ICheck I 

PROGRAMM.DB | PMJD_Ship_ShipName_FK61 PM_ID_ExamEndDate |MGTESR_Grade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC| 


EndQuery 


else 

myQuery=Query 
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ANSWER; :PRIV:ANSWER.DB 


EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 j PMJD_ExamEndDate |MGTESR_Grade 

' I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuety 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType [ 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType [ 

I _EG02, _EG01 [Check =~propType[ 

PROGRAMM.DB [ PMJD_Ship_ShipName_FK6 [ PMJD_ExamEndDate [MGTESR_Grade[ 

[ Check _EG02 | Check >=~examDate1, <=~examDate2[Check =SAT OR =UNS OR 

=GOOD OR =EXC[ 


EndQuery 

endlf 

emptyC’MGTESR") 
empty("MGTESR1") 
executeQBE(myQuery, "MGTESR.db") 
executeQBE(myQuery1, "MGTESR1 .db") 
tbl.attachC'MGTESR") 
tbl1.attachrMGTESR1") 

numberOfSatsProgramGrades=tbl.cCount("MGTESR_Grade") 
msglnfo("MGTESR'','The total number of sats are ” 

+strVal(NumberOfSatsProgramGrades)) 

T 0talNumberOfProgramGrades=tbl1 .cCount("MGTESR_Grade'') 
if totalNumberOfProgramGrades <> Othen 
msglnfoC'MGTESR","The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msglnfoC'MGTESR","The sat percentage is" 

+stf\/al(satPercentageProgramGrades)) 

6lSG 

msgStop(''Problem","The total number of MGTESR Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent”) 
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Object: 
MethodName: 
Source: 


TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="MGTESR" 

tc.("PropType1 ")=examType 

tc-CexamDatel ")=examDate1 

tc.rexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.HEARING_CONSERVE_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01 /01 100 ”) 
examDate2=dateC12/31/99") 
propType="GT” 
examType="OPPE" 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.viewrEnter stop date (I.E. 01/01/95)") 
propType.viev^C'Enter prop type (GT/STM/DSL)") 
switch 

case propType="Gr': 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise; 

msgStopC’Problem".’The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE"; 
case examType="REOPPE": 
case examType="LOE": 
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case examType="RELOE''; 
othsrwisGi 

msgStop("Problem'',"The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!”) 
return 
endSwitch 

if propType="ALL'' then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

1_EG02,_EG01 [Check I 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 \ PMJD_ExamEndDate [HearingConsGrade 

' I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SATl 

EndQuery 

myQuery1=Query 

ANSWER: :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType | 

1_EG02,_EG01 [Check I 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 [ PM_lD_ExamEndDate [HearingConsGrade 

' [ Check _EG02 j Check >=~examDate1, <=~examDate2[Check =EXC OR =GOOD OR 

=SAT OR =UNS[ 

EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType [ 

I _EG01 [ Check =~examType[ 

SHIP.DB [ ShipName [PropType [ 

[ _EG02, _EG01 [Check =~propType[ 

PROGRAMM.DB [ PMJD_Ship_ShipName_FK6 [ PM_ID_ExamEndDate [HearingConsGrade 

^ [ Check _EG02 [ Check >=~examDate1, <=~examDate2[Check =EXC OR =GOOD OR 

=SAT[ 

EndQuery 
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Object; 
MethodName 
Source: 


myQueryl =Query 
ANSWER: ;PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 1 ExamType 1 
1 _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |HearingConsGrade 

' I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT OR =UNSj 

EndQuery 

endlf 

emptyCHEARCON”) 
emptyC’HEARCONr) 
executeQBE(myQuery, "HEARCON.db") 
executeQBE(myQuery1, "HEARCON1 .db") 
tbl.attach("HEARCON") 
tbl1.attachrHEARCON1") 

numberOfSatsProgramGrades=tbl.cCountC'HearingConsGrade") 
msgInfoC'Hearing Conservation",The total number of sats are" 
+strVal(NumberOfSateProgramGrades)) 
TotalNumberOfProgramGrades=tbI1.cCountC'HearingConsGrade") 
if totalNumberOfProgramGrades <> 0 then 
msgInfofHearing Conservation","The total number of grades are" 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msgInfoC'Hearing Conservation","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

6lS6 

msgStop("Problem","The total number of Hearing Conservation grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percenf) 

TC.editO 

tc-insertRecordO 

tc.C'Percentage")=SatPercentageProgramGrades 

tc.CPropType")="HC" 

tc.C'PropTypel ")=examType 

tc.("examDate1 ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.TAGOUT_BUTTON 
: push Button 

method pushButton(var eventinfo Event) 
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var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01 /01 /OO") 
examDate2=dateC’12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.viewCEnter stop date (I.E. 01/01/95y') 
propType.view("Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL"; 
othenwise: 

msgStopC'Problem",'The choices for Propulsion Type are GT, STM, or DSL only!") 
return 
endSwitch 

examType.viewC'Enter (OPPE/REOPPE/LOE/RELOE)") 
switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/WI.DB i ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType | 

I _EG02, _EG01 ICheck | 


230 



ITagoutGrade 


PROGRAMM.DB 1 PM_ID_Ship_ShipName_FK6 ] PM_ID_ExamEndDate 

1 Check _EG02 | Check >=~examDate1, <=~examDate2lCheck =EXC OR =GOOD OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER: ;PRIV;ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

1_EG02,_EG01 ICheckI 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |TagoutGrade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2lCheck =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQueiy=Query 
ANSWER: :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examTypel 

SHIP.DB I ShipName [PropType I 
I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate ITagoutGrade 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRlV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 
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Object: 
MethodName: 
Source; 


PROGRAMM.DB 1 PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |TagoutGrade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

endlf 

emptyCTAGOUT") 

empty(TAGOUr) 

executeQBE(myQuery, "TAGOUT.db") 
execiiteQBE(myQuery1, TAGOUT 1 .db") 
tbI.attachCTAGOUT") 
tbl1.attach(TAGOUT1") 

numberOfSatsProgramGrades=tbl.cCount("TagOutGrade") 
msgInfoC'Tag Ouf.'The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount('TagOutGrade") 
if totalNumberOfProgramGrades <> 0 then 
msgInfoC'Tag Out",The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msgInfoC'Tag Out","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The total number of Tag Out grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC’percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="TAGOUT" 

tc.("PropType1 ")=examType 

tc.C'examDatel ")=examDate1 

tc.rexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.FOQM_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
. tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 
totalNumberOfProgramGrades Number 
satPercentageProgramGrades Number 
myOuery Query 
myQueryl Query 
myQuer^ Query 
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examDatel Date 
examDate2 Date 
PropType String 
examType String 
endVar 

doDefault 

examDatel =dateC'01 /01 /OO") 
examDate2=dateri 2/31 199 ”) 
propType=''GT" 
examType=''OPPE" 

examDatel-viewC'Enter start date (I.E. 01/01/95)") 
examDate2.viewCEnter stop date (I.E. 01/01/SSy") 
propType.viewC'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT"; 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStopC'Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE'': 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE"; 
otherwise: 

msgStop(''Problem",’The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 1 Check =~examTypel 

SHIP.DB I ShipName jPropType | 

1 _EG02. _EG01 [Check 1 

PROGRAMM.DB [ PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate lFOQM_Grade 

I 

I Check _EG02 | Check >=~examDate1, <=~examDate21Check =EXC OR =GOOD OR 

=SAT I 


EndQuery 

myQuery1=Query 
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ANSWER; ;PRIV:ANSWER.DB 


EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

|_EG02,_EG01 ICheckl 

PROGRAMM.DB I PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |FOQM_Grade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXCl 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType I 
I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |FOQM_Grade 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER; ;PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 [ PMJD_ExamEndDate |FOQM_Grade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =:SAT OR =UNS OR 

=GOOD OR =EXC| 


EndQuery 

endlf 


emptyC'FOQM*') 

empty("FOQM1") 
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Object: 
MethodName 
Source: 


executeQBE(myQuery, "FOQM.db") 
executeQBE(myQuery1, "FOQM1 .db") 
tbI.attachC'FOQM") 
tbl1.attachrFOQM1") 

numberOfSatsProgramGrades=tbl.cCount("FOQM_Grade'') 
msglnfo("FOQM",'The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount("FOQM_Grade’') 
if totalNumberOfProgramGrades <> 0 then 
msglnfo("FOQM","The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msglnfo("FOQM",'The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

@|S0 

msgStop(''Problem",'The total number of FOQM Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.("PropType")="FOQM" 

tc.C'PropTypel ")=examType 

tc.("examDate1 ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.QA_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
toll table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatet Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatet =date("01/01/00") 
examDate2=date("12/31 /99") 
propType="GT'' 
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examType="OPPE" 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95)") 
propType.viewC'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStopC'Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType=”ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/WI.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType 1 
|_EG02,_EG01 ICheckI 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 I PM_ID_ExamEndDate lQA_Grade 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType [ 

I _EG01 I Check =~examType| 

SHIP.DB i ShipName |PropType | 

I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 1 PM_ID_ExamEndDate 
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|QA_Grade| 


I Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 


|Check_EG02 
=GOODOR=EXC I 


EndQuery 

else 

myQuery=Query 
ANSWER; :PRIV:ANSWER.DB 

EXAM.DB I ExannlD_Ship_ShipName_FK21 ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType I 
I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB [ PMJD_Ship_ShipName_FK6 j PMJD_ExamEndDate |QA_Grade 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV;ANSWER.DB 

EXAM.DB I ExamID_Ship_ShipName_FK2 j ExamType j 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 [ PMJD_ExamEndDate [QA_Grade[ 

I Check _EG02 | Check >=~examDate1, <=~examDate2[Check =SAT OR =UNS OR 

=GOODOR=EXC I 


EndQuery 

endlf 

emptyC'QA") 

emp1y("QA1") 

executeQBE(myQuery, "QA.db") 
executeQBE(myQuery1, "QA1 .db") 
tbI.attachfQA") 
tbl1.attach(’’QAr) 

number0^atsProgramGrades=tbl.cCountC’QA_Grade") 
msglnfoCQualHy Assurance","The total number of sats are" 
+strVal(NumberOfSatsProgramGrades)) 

T otalNumberOfProgramGrades=tbl1 .cCount("QA_Grade") 
if totalNumberOfProgramGrades <> 0 then 
msglnfofQuality Assurance","The total number of grades are 

237 



Object: 
MethodName: 
Source: 


+str\/al(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/lotalNumberOfProgramGrades)*100 

msgInfoC'Quality Assurance","The sat percentage is" 

+str\/al(satPercentageProgramGrades)) 

6iS6 

msgStop("Problem","The total number of Quality Assurance grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.rPropType")="QA" 

tc.("PropType1 ")=examType 

tc.fexamDatel ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.ELECTRICAL_SAFETY_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSateProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuery2 Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
propType="GT" 
examType="OPPE" 

examDatel .vie\w("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95y') 
propType.viewfEnter prop type (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise; 
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msgStop("Problem'’,'The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE'': 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!') 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER; ;PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

1 _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType | 

|_EG02,_EG01 ICheckI 

PROGRAMM.DB I PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |ElectSafetyGrade 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

1_EG02,_EG01 ICheckI 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PM_ID_ExamEndDate |ElectSafetyGrade| 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQuery=Query 


ANSWER; :PRIV:ANSWER.DB 
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EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName IPropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate |ElectSafetyGrade 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck =~propType| 

PROGRAMM.DB I PMJD_Ship_ShipName_FK61 PMJD_ExamEndDate lElectSafetyGradel 

I Check_EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

endlf 

emptyC'ELECSAF") 
emptyC'ELECSAFI") 
executeQBE(myQuery, "ELECSAF.db") 
executeQBE(myQuery1, "ELECSAF1 .db") 
tbl.attach("ELECSAF") 
tbl1 .attach("ELECSAF1") 

numberOfSatsProgramGrades=tbl.cCount("ElectSafetyGrade") 
msgInfoC'Electrical Safety''."The total number of sats are" 

+strVal(NumberOfSateProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCountC'ElectSafetyGrade") 
if totalNumberOfProgramGrades <> 0 then 
msgInfoC'Electrical Safety","The total number of grades are" 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msgInfoC'Electrical Safety",'The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem","The total number of Electrical Safety Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 
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Object: 
MethodName; 
Source: 


tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.C’PropType")="ES’' 

tc.("PropT ype1 ")=examType 

tc.("examDate1 ")=examDate1 

tc. ("exam Date2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.0PERATING_LOGS_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myQuery Query 

myQueryt Query 

myQuery^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01 /01 /00“) 
examDate2=dateri 2/31/99") 
propType=”GT" 
examType=''OPPE" 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.viewrEnter stop date (I.E. 01/01/95)") 
propType.viewC'Enter prop type (GT/STM/DSL)") 
svritch 

case propType="GT": 
case propType=”STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

examType.viewC'Enter(OPPE/REOPPE/LOE/RELOE)") 

sv\/itch 

case examType=''OPPE": 
case examType="REOPPE”: 
case examType="LOE": 
case examType="RELOE": 
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msgStopC’Problem",'The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!") 
return 
endSwitch 

if propType=''ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType 1 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType | 

I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 \ PMJD_ExamEndDate jOpLogsGrade 

* I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT I 


EndQuery 

myQuery1=Query 

ANSWER: :PRI\/:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName jPropType I 
I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PM_ID_ExamEndDate JOpLogsGr^e | 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =SAT OR -UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

|_EG02,_EG01 ICheck =~propType| 

PROGRAMM.DB I PMJD_Ship_ShipName_FK61 PMJD_ExamEndDate lOpLogsGrade 

^ I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 
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=SAT1 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examTypel 

SHIP.DB I ShipName |PropType \ 

I _EG02, _EG01 [Check =~propTypel 

PROGRAMM.DB | PMJD_Ship_ShipName_FK6 | PMJD_ExamEndDate [OpLogsGrade | 

I Check _EG02 | Check >=~examDate1, <=~examDate2iCheck =SAT OR =UNS OR 

=GOODOR=EXC I 


EndQuery 

endlf 

emptyfOPLOGS’’) 
empty("OPLOGS1") 
executeQBE(myQuery, "OPLOGS.db") 
executeQBE(myQuery1, "OPLOGS1 .db") 
tbI.attachC'OPLOGS") 
tbl1.attachC’OPLOGS1") 

numberOfSatsProgramGrades=tbl.cCount("OpLogsGrade") 
msgInfoC'Operation Logs".The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 

TotalNumberOfProgramGrades=tbl1 .cCountfOpLogsGrade") 
if totalNumberOfProgramGrades <> 0 then 
msgInfoC'Operation Logs",The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 
msgInfoC'Operation Logs","The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

else 

msgStop("Problem",*The total number of Operation Logs Grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageProgramGrades 

tc.C'PropType")="OPLOGS'' 

tc.("PropType1 ")=examType 

tc.C'examDatel '')=examDate1 

tc.C’examDate2")=examDate2 

tc.endEditO 

endmethod 


243 



Object: #Page2.#Box3.DJWTT_BUTTON 

MethodName; pushButton 

Source : method pushButton(var eventinfo Event) 

var 

tc tCursor 
tbi table 
tbl1 table 

numberO^atsProgramGrades Number 

totalNumberOfProgramGrades Number 

satPercentageProgramGrades Number 

myOuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date("12/31/99”) 
propType="GT" 
examType=''OPPE" 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95y’) 
propType.viev^C'Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType="STM"; 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem","The choices for Propulsion Type are GT, STM, DSL, ALL only!") 
return 
endSwitch 

examType.viewrEnter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType="OPPE": 
case examType="REOPPE": 
case examType="LOE": 
case examType="RELOE": 
otherwise: 

msgStop("Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE only!) 
return 
endSwitch 

if propType="ALL" then 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 


244 



EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 I Check =~examType| 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck I 

PROGRAMM.DB I PMJD_Ship_ShipName_FK61 PMJD_ExamEndDate lDJWTT_Grade 

I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SATl 


EndQuery 

myQuery1=Query 

ANSWER; :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 \ ExamType I 
I _EG01 I Check =~examTypel 

SHIP.DB I ShipName [PropType I 
I _EG02, _EG01 ICheck | 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK61 PMJD_ExamEndDate |DJWTT_Grade | 

1 Check _EG02 | Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

else 

myQuery=Query 
ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG01 I Check =~examType| 

SHIP.DB I ShipName [PropType I 
I _EG02, _EG01 (Check =~propType| 

PROGRAMM.DB | PM_ID_Ship_ShipName_FK6 | PMJD_ExamEndDate |DJWTT_Grade 

' I Check _EG02 I Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 
=SAT| 

EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType [ 
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I _EG01 


I Check =~examType| 


Object; 
MethodName: 
Source: 


SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 

PROGRAMM.DB j PM_ID_Ship_ShipName_FK6 j PMJD_ExamEndDate |DJWTT_Grade j 

I Check _EG02 j Check >=~examDate1, <=~examDate2|Check =SAT OR =UNS OR 

=GOOD OR =EXC I 


EndQuery 

endlf 

emptyC'DJWTT") 

emptyC’DJWTTI") 

executeQBE(myQuery, "DJWTT.db") 
executeQBE(myQuery1, "DJWTT1 .db") 
tbI.attachC’DJWTT") 
tbl1.attach(''DJWm") 

numberOfSatsProgrannGrades=tbl.cCountC'DJWTT_Grade") 
msglnfoC'DJWTT",'The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbl1.cCount("DJWTT_Grade") 
if totalNumberOfProgramGrades <> 0 then 
msglnfoC'DJWTT'','The total number of grades are" 

+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades)*100 

msglnfoC'DJWrr'.The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

0lS6 

msgStoprProblem",'The total number of DJWTT Grades is 0. you cannot divide by 0!") 
return 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.C'Percentage")=SatPercentageProgramGrades 

tc.f’PropType")=”DJWTr’ 

tc.fPropTypel ")=examType 

tc.f examDatet ")=examDate1 

tc.("examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page2.#Box3.0LV_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsProgramGrades Number 
totalNumberOfProgramGrades Number 
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satPercentageProgramGrades Number 

myQuery Query 

myQueryl Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

examType String 

endVar 

doDefault 

examDatel =dateC'01 /01 /OO") 
examDate2=dateC’12/31/99") 
examType="OPPE" 

examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95)") 

examType.view("Enter(OPPE/REOPPE/LOE/RELOE)") 

switch 

case examType*"OPPE": 
case examType="REOPPE": 
case examType="LOE'': 
case examType="RELOE": 
othenwise; 

msgStopC'Problem","The choices for Exam Type are OPPE, REOPPE, LOE, or RELOE oniy!") 
return 
endSwitch 

myQuery=Query 

ANSWER; :PRIV:ANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG01 1 Check =~examType| 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 [Check =STM j 

PROGR/\MM.DB | PM_ID_Ship_ShipName_FK6 j PM_ID_ExamEndDate |OLV_Grade 

I Check _EG02 | Check >=~examDate1, <=~examDate2|Check =EXC OR =GOOD OR 

=SAT| 


EndQuery 

myQueryl =Query 

ANSWER: ;PRIVANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 j ExamType 
I _EG01 I Check =~examType| 

SHiP.DB I ShipName [PropType [ 
[_EG02,_EG01 [Check =STM [ 
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PROGRAMM.DB | PMJD_Ship_ShipName_FK6 \ PMJD_ExamEndDate |OLV_Grade| 

1 Check _EG02 I Check >=~examDate1, <=~examDate2lCheck =SAT OR =UNS OR 

=GOODOR=EXC I 


EndQuery 

emptyC'OLV") 

emptyC'OLVr) 

executeQBE(myQuery, "OLV.db") 
executeQBE(myQuery1, "OLV1 .db") 
tbl.attachrOLV") 
tbl1.attachrOLV1") 

numberOfSateProgramGrades=tbl.cCount("OLV_Grade'') 

msgInfoC'Online Verification","The total number of sats are" 

+strVal(NumberOfSatsProgramGrades)) 
TotalNumberOfProgramGrades=tbI1.cCount("OLV_Grade") 
if totalNumberOfProgramGrades <> 0 then 
msglnfofOnline Verification",'The total number of grades are" 
+strVal(totalNumberOfProgramGrades)) 

SatPercentageProgramGrades=(numberOfSatsProgramGrades/totalNumberOfProgramGrades) 100 

msglnfofOnline Verification",'The sat percentage is" 

+strVal(satPercentageProgramGrades)) 

else 

msgStopf Problem","The total number of Online Verification grades is 0, you cannot divide by 0!") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tc.insertRecordO 

tc.fPercentage")=SatPercentageProgramGrades 

tc.rPropType")="OLV' 

tc.f propTypel ")=examType 

tc.f examDatel ")=examDate1 

tc.fexamDate2")=examDate2 

tc.endEditO 

endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


OPPE_LOE_MONTHLY_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventlnfo-isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

examMen u.addT extC'&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editO 

endif 

endmethod 


OPPE_LOE_MONTHLY_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventlnfo-isPrePilterO 
then 

; This code executes for each object on the form. 


Svfltch 


else 

; This code executes only for the form, 
case eventInfo.menuChoiceO ="&Help": 


case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestion("Quit","Are you sure you want to leave this form?”) 
If reply = "Yes" then 
closeO 
else 
return 
endif 

endSwitch 

endif 

endmethod 
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Object; 
MethodName; 
Source: 


Object; 
MethodName 
Source: 


#Page2.#Button3 

pushButton 

method pushButton(var eventinfo Event) 
var 

tbi tableView 
myQuery Query 
examDatel Date 
examDate2 Date 
endVar 

doDefault 

examDatel =dateC'01/01 100 ") 
examDate2=dateC'12/31/99") 
examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95)") 

myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate | ExamType | 

I Check _EG01 I Check >=~examDate1, <=~examDate21 Check 1 

EXAM.DB I OverallFinding | Comments i 
1 Check I Check 1 


EndQuery 
empty ("Summary") 

if executeQBE(myQuery, "Summary.db") then 

tbl.open("Summary") 

else 

msgStopC'Problem","Could not open summary database.") 
endlf 

endmethod 


#Page4 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

examMenu .addT ext("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

editQ 
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endmethod 


Object: 
MethodName: 
Source; 


Object: 
MethodName; 
Source: 


Object: 
MethodName 
Source: 


#Page4.#Box8.PRINT_REPORT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

myRep Report 
reply String 
endVar 

reply=msgQuestion("\/ie>w report"."Have you updated the report with the SUMMARY query?") 
if reply="Yes" then 
myRep.printC'Summary") 
else 
return 
endlf 

endmethod 


#Page4.#Box8.VIEW_REPORT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

myRep Report 
reply String 
m menu 
endVar 

reply=msgQuestion('View report"/'Have you updated the report with the SUMMARY query?") 
if reply="Yes" then 

myRep.openC'Summary", WinStyleMaximize) 
hideSpeedBarO 

m.addTextn 

m.ShowO 

messageC'Shift-F4 for next page, Shift-F3 for previous page, Ctrl-F4 to close report") 
else 
return 
endlf 

endmethod 


#Page4.#Box8.SUMMARY_QUERY_BUTTON 
; pushButton 

method pushButton(var eventinfo Event) 
var 

tbi tableView 
myOuery Query 
examDatef Date 
examDate? Date 
endVar 
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doDefault 

examDatel =date("01/01 100 ") 
examDate2=date("12/31/99") 
examDatel .view("Enter start date (l.E. 01/01/95)") 
examDate2.view("Enter stop date (l.E. 01/01/95y') 

myQuery=Query 

ANSWER; :PR1V:ANSWER.DB 

EX/\M.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate 1 ExamType | 

I Check _EG01 | Check >=~examDate1, <=~examDate2| Check | 

EX/WI.DB I OverallFinding | Comments 1 
I Check I Check | 


EndQuery 
empty ("Summary") 

if executeQBE(myQuery, "Summary.db") then 
msglnfoCSummary","The Summary Query was successful.") 
: tbI.openC'Summary") 
else 

msgStopC'Problem","Could not open summary database.") 
endlf 

endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


EVOLUTIONS_DRILLS_QUERY 

Const 

Const 

ViewFlex1=301 

ViewFlex2=302 

ViewFlex3=303 

ViewFlex4=304 

ViewFlex5=305 

ViewFlex6=306 

PrintFlex1=313 

PrintFlex2=314 

PrintFlex3=315 

PrintFlex4=316 

PrintFlex5=317 

PrintFlex6=318 

endConst 


EVOLUTIONS_DRILLS_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tcTcursor 

examMenu, View, Print, ReportMenu Menu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewFlexPop PopUpMenu 

PrintFlexPop PopUpMenu 

examtype PopupMenu 

endVar 

if eventlnfo-isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 

PrintPop.addTextfEvolutions Section T','"',PrintFlex1) 
PrintPop.addTextfDrills Section 1","",PrintFlex4) 
PrintPop.addTextfEvolutions Section 2'',"",PrintFlex2) 
PrintPop.addTextCDiills Section 2","",PrintFlex5) 
PrintPop.addTextfEvolutions Section 3","",PrintFlex3) 
PrintPop.addText("Drills Section 3","",PrintFlex6) 

PrintPop.addT ext("&Graph") 

ViewPop.addTextC'Evolutions Section r,"",ViewFlex1) 
ViewPop.addTextf Drills Section 1ViewFlex4) 
ViewPop.addTextC'Evolutions Section 2","",ViewFlex2) 
ViewPop.addTextC'Drills Section 2","",ViewFlex5) 
ViewPop.addTextC'Evolutions Section 3","",ViewFlex3) 
ViewPop.addTextC'Drills Section 3","",ViewFlex6) 
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Object; 
MethodName: 
Source: 


examMenu.addPopUp("&View", ViewPop) 
examMenu.addPopUPC&Prinf, PrintPop) 
examMenu.addText("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.openfpercenf') 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


EVOLUTIONS_DRILLS_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
choiceld Smallint 
m menu 
endVar 

choiceld=eventlnfo.idO 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 

else 

; This code executes only for the form. 


Switch 

case eventInfo.menuChoiceO ="&Help": 

case eventInfo.menuChoiceO =”&Quit"; 
reply=msgQuestionf Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endif 

case eventInfo.menuChoiceO ="&Graph": 
myRep.printC'taskevol") 
endSwitch 
Switch 

case choiceld =\/iewFlex1: 
myRep.open("tasksec1") 

hideSpeedBarO 

m.addTextC") 

m.showO 

case choiceld =ViewFlex2: 
myRep.open("tasksec2") 
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Object: 
MethodName: 
Source: 


Object: 


hideSpeedBarO 

m.addText("") 

m.showO 

case choiceld =\/iewFlex3: 
myRep.openC'tasksecS") 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =ViewFlex4: 
myRep.openC'drilsecI") 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =\/iewFlex5: 
myRep.openC'drilsec2") 
hideSpeedBarO 
m.addTextC"’) 
m.showO 

case choiceld =ViewFlex6: 
myRep.open("drilsec3'') 
hideSpeedBarO 
m.addText("") 
m.showO 

case choiceld =PrintFlex1: 
myRep.printC'tasksed ’’) 
case choiceld =PrintFlex2: 
myRep.printC'tasksec2") 
case choiceld =PrintFlex3: 
myRep.printC'tasksec3") 
case choiceld =PrintFlex4: 
myRep.print("drilsec1") 
case choiceld =PrintFlex5: 

myRep.printC’drilsec2") 
case choiceld =PrintFlex6: 
myRep.print("drilsec3") 
endSwitch 
endif 

endmethod 


#Page2.#Box19.#Button25 
pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.openC'drilsec3") 

endmethod 


#Page2.#Box19.#Button31 


MethodName: pushButton 



Source: 


method pushButton(var eventinfo Event) 
var 

tbi table 
tbl1 table 

numberOfSats Number 
totalNumberOfEvolutions Number 
satPercentage Number 
myQuery Query 
myQueryt Query 
examDate Date 
PropType String 
endVar 

doDefault 

examDate.viewC’Please enter the desired start date.”) 
propType.viewC'Please enter the desired propulsion type.") 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | %ofSatDrill_2ndSec | 

I _EG01 I Check >=50 | 

SHIP.DB I ShipName \ ExamEndDate | PropType | 

I Check _EG02,_EG01 | Check >=~examDate| Check =~propType| 

EXAM.DB I ExamID_Ship_ShipName_FK2 [ ExamType | 

I _EG02 I Check =OPPE \ 


EndQuery 
myQueryt =Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | %ofSatEvol_1stSec | 

1 _EG01 I Check 1 

OPERATIO.DB | %ofSatEvol_2ndSec 1 %ofSatEvol_3rdSec | %ofSatDrilMstSec | 
I Check 1 Check I Check | 

OPERATIO.DB | %ofSatDrill_2ndSec | %ofSatDrill_3rdSec | 

I Check I Check 1 

SHIP.DB I ShipName | ExamEndDate 1 PropType | 

I Check _EG02, _EG01 | Check >=~examDate| Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 1 Check =OPPE | 


EndQuery 
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executeQBE(myQuety, "DrilSec2.db") 
executeQBE(myQuery1, 'Tas1 Sec1 .db") 


Object: 
MethodName: 
Source: 


tbi .attach ("DrilSec2") 
tbl1 .attach("Tas1Sec1") 

numberOfSats=tbl.cCount("%ofSatDrill_2ndSec") 
msglnfo("Section Two","The total number of sat drill sets are" 
+stiVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCount("%ofSatDrill_2ndSec") 
msgInfoC'Section Two",The total number of drill sets are" 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section Two",The sat drill set percentage is" 
+stiVal(satPercentage)) 
endmethod 


#Page2.#Box19.#Button30 
pushButton 

method pushButton(var eventinfo Event) 
var 

tbI table 
tbl1 table 

numberOfSats Number 
totalNumberOfEvolutions Number 
satPercentage Number 
myQuery Query 
myQueryl Query 
examDate Date 
PropType String 
endVar 

doDefault 

examDate.view("Please enter the desired start date.") 
propType.viewfPlease enter the desired propulsion type.") 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | %ofSatDrilL3rdSec | 

I _EG01 1 Check >=50 | 

SHIP.DB 1 ShipName | ExamEndDate | PropType 1 

j Check _EG02,_EG01 | Check >=~examDate| Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

|_EG02 |Check=OPPE| 


EndQuery 
myQueryl =Query 
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ANSWER: :PRIV:ANSWER.DB 


Object: 
MethodName: 
Source: 


Object; 
MethodName 
Source: 


OPERATIO.DB | Operati_Ship_ShipName_FK31 %ofSatEvoMstSec | 

1 _EG01 I Check | 

OPERATIO.DB | %ofSatEvol_2ndSec | %ofSatEvol_3rdSec I %ofSatDrill. 
I Check I Check I Check | 

OPERATIO.DB | %ofSatDrill_2ndSec I %ofSatDrill_3rdSec | 

I Check I Check I 

SHIP.DB I ShipName | ExamEndDate I PropType I 

I Check _EG02,_EG01 | Check >=~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE | 


EndQuery 

executeQBE(myQuery, "DrilSec3.db'') 
executeQBE(myQuery1, "TasISed .db") 

tbl.attach(''DrilSec3") 

tbl1.attach{'Tas1Sec1") 

numberOfSats=tbl.cCount("%ofSatDrill_3rdSec") 
msgInfoC’Section Three”,The total number of sat drill sets are" 
+strVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCount("%ofSatDrill_3rdSec") 
msglnfofSection Three","The total number of drill sete are " 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 

msgInfoC’Section Three",'The sat driil set percentage is" 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box19.#Button23 
pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("drilsec2") 

endmethod 


#Page2.#Box19.#Button21 
pushButton 

method pushButton(var eventinfo Event) 
var 


IstSec I 


258 



Object: 
MethodName: 
Source: 


newView tableView 
endVar 

newView.openC'drilsecI") 
endmethod 


#Page2.#Box19.#Button9 
pushButton 

method pushButton(var eventlnfo Event) 
var 

tbi table 
tbl1 table 

numberOfSats Number 
totalNumberOfEvolutions Number 
satPercentage Number 
myQuery Query 
myQueryt Query 
examDate Date 
PropType String 
endVar 

doDefault 

examDate.view("Please enter the desired start date.") 
propType.viewC'Please enter the desired propulsion type.") 
myQuery=Query 

ANSWER: :PRiV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 I “/oofSatOrilMstSec I 
I _EG01 I Check >=50 I 

SHIP.DB i ShipName | ExamEndDate I PropType [ 

I Check _EG02, _EG011 Check >=~examDatel Check =~propTypel 

EXAM.DB I ExamlD_Ship_ShipName_FK2 \ ExamType | 

I _EG02 I Check =OPPE | 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV;ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 I %ofSatEvol_1stSec | 

I _EG01 I Check I 

OPERATIO.DB | %ofSatEvol_2ndSec | %ofSatEvol_3rdSec | %ofSatDrill_1stSec | 
I Check I Check I Check | 

OPERATIO.DB | %ofSatDrill_2ndSec | %ofSatDrill_3rdSec I 
I Check I Check | 
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Object: 
MethodName: 
Source; 


Object: 
MethodName: 
Source: 


Object: 
MethodName: 


SHIP.DB I ShipName | ExamEndDate | PropType | 

I Check _EG02, _EG01 | Check >*~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 \ ExamType | 

I _EG02 I Check =OPPE | 


EndQuery 

executeQBE(myQuery, "DrilSecI .db") 
executeQBE(myQuery1, "TasISed .db") 

tbI.attachC'DrilSecr') 
tbl1 .attach("Tas1 Sec1") 

numberOfSats=tbl.cCountr%ofSatDriH_1stSec") 
msglnfof Section One","The total number of sat drill sets are" 
+strVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCountC'%ofSatDrilI_1stSec") 
msgInfoC'Section One","The total number of drill sets are" 
+str\/al(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msglnfofSection One","The sat drill set percentage is " 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box11 .#Button15 
pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.openC'T as2sec1") 
endmethod 


#Page2.#Box11.#Button17 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.opennas2sec3") 

endmethod 


#Page2.#Box11 .#Button13 
pushButton 
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Object; 
MethodName; 
Source: 


#Page2.#Box11 .#Button35 
pushButton 

method pushButton(var eventinfo Event) 
var 

tbi table 
tbl1 table 

numberOfSats Number 
totalNumberOfEvolutions Number 
satPercentage Number 
myQuery Query 
myQueryt Query 
examDate Date 
PropType String 
endVar 

doDefault 

examDate.viewC'Please enter the desired start date.") 
propType.viewC'Please enter the desired propulsion type.") 
myQuery=Query 

ANSWER; :PRIV;ANSWER.DB 

OPERATIO.DB I Operati_Ship_ShipName_FK3 | %ofSatEvol_3rdSec | 

I _EG01 I Check >=75 | 

SHIP.DB I ShipName | ExamEndDate 1 PropType | 

I Check _EG02,_EG01 | Check >=~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 
l_EG02 |Check=OPPEi 


EndQuery 


myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK31 %ofSatEvoMstSec 1 
1 _EG01 I Check I 

OPERATIO.DB | %ofSatEvol_2ndSec | %ofSatEvol_3rdSec I 
I Check I Check I 
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Object; 
MethodName: 
Source: 


SHIP.DB I ShipName | ExamEndDate | PropType | 

I Check _EG02. _EG01 | Check >=~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType I 
I _EG02 I Check =OPPE | 


EndQuery 

executeQBE(myQuery, "T as2Sec3.db") 
executeQBE(myQuery1, "TasISecI .db") 

tbl.attachC'T as2Sec3") 
tbl1 .attachC'TasI Sect") 

numberOfSats=tbl.cCountr%ofSatEvol_3rdSec") 
msgInfoC'Section Three",'The total number of sat evolution sets are 
+strVal(NumberOfSats)) 

TotalNumberOfEvolutions=tbl1.cCount("%ofSatEvol_2ndSec") 

msgInfoC'Section Three","The total number of evolution sets are" 
+str\/al(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section Three","The sat evolution set percentage is" 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box11 .#Button36 
pushButton 

method pushButton(var eventinfo Event) 
var 

tbi table 
tbl1 table 

numberOfSats Number 
totalNumberOfEvolutions Number 
satPercentage Number 
myQuery Query 
myQueryt Query 
examDate Date 
PropType String 
endVar 

doDefault 

examDate.vievirC'Please enter the desired start date.") 
propType.viewC'Please enter the desired propulsion ^e.") 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK31 %ofSatEvol_2ndSec I 
I _EG01 I Check >=75 | 

SHIP.DB I ShipName | ExamEndDate I PropType | 
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Object: 
MethodName 
Source: 


I Check _EG02,_EG01 | Check >=~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType | 

I _EG02 I Check =OPPE \ 


EndQuery 

myQuery1=Query 

ANSWER: :PRlV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 | %ofSatEvol_1stSec | 

I _EG01 I Check I 

OPERATIO.DB I %ofSatEvol_2ndSec | %ofSatEvol_3rdSec | 

I Check I Check | 

SHIP.DB I ShipName | ExamEndDate | PropType | 

I Check _EG02,_EG01 | Check >=~examDate| Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 j ExamType I 
|_EG02 |Check=OPPE| 


EndQuery 

executeQBE(myQuery, "Tas2Sec2.db'') 
executeQBE(myQuery1, "Tas1 Sect .db") 

tbi .attach C'Tas2Sec2") 
tbl1 .attachC'T as1 Sect") 

numberOfSats=tbl.cCountf%ofSatEvol_2ndSec") 
msgInfoC'Section Two","The total number of sat evolution sets are" 
+strVal(NumberOfSats)) 

T otalNumberOfEvolutions=tbl1 .cCountC’%ofSatEvol_2ndSec") 
msgInfoC'Section Two","The total number of evolution sets are" 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msgInfoC'Section Two","The sat evolution percentage is" 
+strVal(satPercentage)) 
endmethod 


#Page2.#Box11.#Button3 

pushButton 

method pushButton(var eventinfo Event) 
var 

tbI table 
tbl1 table 

numberOfSats Number 
totalNumberOfEvolutions Number 
satPercentage Number 
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myQuery Query 
myQueryl Query 
examDate Date 
PropType String 
endVar 

doDefault 

examDate.viewfPlease enter the desired start date.") 
propType.viewC'Please enter the desired propulsion type.") 
myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 1 %ofSatEvoI_1stSec | 

I _EG01 I Check >=75 | 

SHIP.DB I ShipName | ExamEndDate | PropType | 

I Check _EG02, _EG01 | Check >=~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE | 


EndQuery 

myQueryl =Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB 1 Operati_Ship_ShipName_FK3 | %ofSatEvol_1stSec I 
|_EG01 I Check | 

SHIP.DB I ShipName | ExamEndDate | PropType I 

I Check _EG02, _EG01 | Check >=~examDatel Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE | 


EndQuery 

executeQBE(myQuery, "Tas2Sec1 .db") 
executeQBE(myQuery1, 'TasISed .db") 

tbl.attach("Tas2Sec1") 
tbi 1 .attachC'T as1 Sec1") 

numberOfSats=tbl.cCountC'%ofSatEvol_1stSec") 
msgInfoC'Section One","The total number of sat evolution sets are" 
+strVal(NumberOfSats)) 

T otalNumberOfEvolutions=tbl 1 .cCount("%ofSatEvol_1 stSec") 
msgInfofSection One","The total number of evolution sets are" 
+strVal(totalNumberOfEvolutions)) 
SatPercentage=(numberOfSats/totalNumberOfEvolutions)*100 
msglnfofSection One","The sat evolution set percentage is " 
+strVal(satPercentage)) 
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endmethod 


Object: 
MethodName: 
Source: 


Object: 
MethodName 
Source: 


#Page27 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu, View, Print, ReportMenu Menu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewFlexPop PopUpMenu 

PrintFlexPop PopUpMenu 

examtype PopupMenu 

endVar 

PrintPop.addTextfEvolutions Section 1","",PrintFiex1) 
PrintPop.addTextC’Drilis Section 1",‘"',PrintFiex4) 
PrintPop.addTextC'Evolutions Section 2",”",PrintFiex2) 
PrintPop.addTextC'Drills Section 2","",PrintFiex5) 
PrintPop.addTextf Evolutions Section 3",'’",PrintFlex3) 
PrintPop.addTextrDrills Section 3”,"",PrintFlex6) 
PrintPop.addT extC’&Graph") 

ViewPop.addText("Evolutions Section 1'',"",ViewFlex1) 
ViewPop.addTextCDrills Section 1","",ViewFlex4) 
ViewPop.addTextfEvolutions Section 2",'"',ViewFlex2) 
ViewPop.addTextCDrills Section 2","",ViewFlex5) 
ViewPop.addTextC'Evolutions Section 3”,”",ViewFlex3) 
ViewPop.addTextCDrills Section 3","",ViewFlex6) 

examMenu.addPopUpC&View", ViewPop) 

examMenu.addPopUPC&Print", PrintPop) 

examMenu.addText("&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

endmethod 


#Page27.RESET_GRAPH_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tcTcursor 

endVar 

tc.open("percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source; 


#Page27.#Box46.DRILL_SEC3_LISTSHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

ne\«View.open("drilsec3") 

endmethod 


#Page27.#Box46.DRILL_SEC2_LISTSHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("drilsec2") 

endmethod 


#Page27.#Box46.DRILL_SEC1_LISTSHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.openC'drilsecI") 
endmethod 


#Page27.#Box46.DRILL_SET_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsSed Number 
totalNumberOfSatsSed Number 
satPercentageSed Number 
numberOfSatsSec2 Number 
totalNumberOfSatsSec2 Number 
satPercentageSec2 Number 
numberOfSatsSec3 Number 
totalNumberOfSatsSec3 Number 
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satPercentageSecS Number 
myQueryl Query 
myQuery2 Query 
myQueryS Query 
myQuery4 Query 
myQueryS Query 
myQueryS Query 
examDatel Date 
examDate2 Date 
PropType String 
endVar 

doDefault 

examDatel =dater01 /01 /OO") 
examDate2=dateri 2/31 /99") 
propType="GT" 

examDatel .viewCEnter the start date (I.E. 01/01/95)") 
examDate2.viewf'Enter the stop date (I.E. 01/01/95y') 
propType.viewC'Enter the prop type (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType="ALL": 
otherwise: 

msgStop("Problem",'The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

if propType="ALL" then 
myQueryl =Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate 1 %ofSatDrilMstSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2| Check >=50 | 

SHIP.DB 1 ShipName jPropType | 

1 _EG02, _EG01 ICheck | 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

1 _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB 1 Operati_Ship_Sh1pName_FK3 |OperationlD_ExamEndDate | %ofSatDrilMstSec | 
1 Check _EG01 [Check >=~examDate1, <=~examDate2| Check >0 1 

SHIP.DB I ShipName [PropType [ 

[_EG02,_EG01 [Check [ 
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EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType 
1 _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

executeQBE(myQuery1, "DrilSed .db") 
executeQBE(myQuery2, TasISed .db") 

tbl.attachC’DrilSed") 
tbl1 .attach("Tas1 Sed") 

numberOfSatsSed =tbl.cCount("%ofSatDrill_1 stSec") 
msgInfoC'Section One","The total number of sat drill sets are" 

+strVal(NumberOfSateSed)) 

T otalNumberOfSatsSed =tbl 1 .cCount("%ofSatDrill_1 stSec") 
iftotalNumberOfSatsSed <> Othen 
msgInfoC'Section One","The total number of drill sets are" 

+strVal(totalNumberOfSateSec1)) 

SatPercentageSed=(numberOfSatsSec1/totalNumberOfSatsSec1 )*100 
msgInfoC'Section One","The sat drill set percentage is" 

+strVal (satPercentageSed)) 

else 

msgStop("Problem","The total number of watch sections is 0, you cannot divide by 0!") 
return 
endlf 

myQuery3=Query 
ANSWER: ;PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatDrill_2ndSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2| Check >=50 | 

SHIP.DB I ShipName IPropType | 

1_EG02,_EG01 ICheckI 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE OR =REOPPEl 


EndQuery 

myQuery4=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatDrill_2ndSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2| Check >0 | 

SHIP.DB I ShipName IPropType j 
|_EG02,_EG01 ICheckI 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType | 

I _EG02 I Check =OPPE OR =REOPPE| 
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EndQuery 

executeQBE(myQuery3, ''DiilSec2.db") 
executeQBE(myQuery4, "TasISed .db") 

tbl.attachC'DrilSec2") 
tbl1 .attachC'T as1 Sec1") 

numberOfSatsSec2=tbl.cCountC’%ofSatDrill_2ndSec”) 
msglnfoC'Section Two”,The total number of sat drill sets are" 

+strVal(NumberOfSatsSec2)) 

TotalNumberOfSatsSec2=tbl1.cCount("%ofSatDrill_2ndSec") 
if totalNumberOfSatsSec2 <> 0 then 
msglnfoC’Section Two","The total number of drill sets are" 

+strVal(totalNumberOfSatsSec2)) 

SatPercentageSec2=(numberOfSatsSec2/totalNumberOfSatsSec2)*100 
msglnfoC'Section Two",”The sat drill set percentage is" 

+strVal(satPercentageSec2)) 

else 

msgStopC'Problem","The total number of watch sections is 0, you cannot divide by 0!") 
return 
endlf 

myQuery5=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatDrill_3rdSec \ 
\ Check _EG01 |Check >=~examDate1, <=~examDate2l Check >=50 | 

SHIP.DB I ShipName jPropType | 

I _EG02, _EG01 ICheck I 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType | 

I _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

myQuery6=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB I Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate I %ofSatDrill_3rdsec | 
lCheck_EG01 |Check >=~examDate1, <=~examDate2| Check >0 \ 

SHIP.DB I ShipName |PropType | 

|_EG02,_EG01 ICheck I 

EXAM.DB I ExamlD_Ship_ShipName_FK2 [ ExamType I 

I _EG02 I Check =OPPE OR =REOPPEl 


EndQuery 

executeQBE(myQuery5, "DrilSec3.db") 
executeQBE(myQuer^, "TasISed .db") 
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tbl.attach("DrilSec3") 
tbi 1 .attachC'Tas1 Sec1") 

numberOfSateSec3=tbl.cCount("%ofSatDrill_3rdSec") 
msgInfoC'Section Three","The total number of sat drill sets are" 

+strVal(NumberOfSatsSec3)) 

T otalNumberOfSatsSec3=tbl1 .cCount("%ofSatDrill_3rdSec") 
if totalNumberOfSatsSec3 <> 0 then 
msgInfoC'Section Three","The total number of drill sets are" 

+strVal(totalNumberOfSatsSec3)) 

SatPercentageSec3=(numberOfSatsSec3AotalNumberOfSatsSec3)*100 
msgInfoC'Section Three","The sat drill set percentage is" 

+strVal(satPercentageSec3)) 

else 

msgStop("Problem","The total number of watch sections is 0, you cannot divide by 0!") 
return 
endlf 

else 

myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate I %ofSatDrill_1stSec | 
I Check _EG01 [Check >=~examDate1, <=~examDate2| Check >=50 | 

SHIP.DB I ShipName jPropType 1 
I _EG02, _EG01 [Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE OR =REOPPEl 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV;ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatDrilMstSec [ 
|Check_EG01 [Check >=~examDate1, <=~examDate2| Check >0 | 

SHIP.DB [ ShipName [PropType [ 

[ _EG02, _EG01 [Check =~propType[ 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType [ 

[_EG02 [ Check =OPPE OR =REOPPE[ 


EndQuery 

executeQBE(myQuery1, "DrilSed .db") 
executeQBE(myQuery2, TasISed .db") 

tbl.attachC'DrilSed") 
tbl1 .attachCTasI Sed") 
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numberOfSatsSed =tbl.cCount("%ofSatDrilM stSec") 
msgInfoC'Section One",'The total number of sat drill sets are" 

+strVal(NumberOfSatsSec1)) 

TotalNumberOfSatsSed =tbl1 .cCountC'%ofSatDrill_1 stSec") 
iftotalNumberOfSatsSed <>0then 
msgInfoC'Section One","The total number of drill sets are" 

+strVal(totalNumberOfSatsSed)) 

SatPercentageSed =(numberOfSatsSed /totalNumberOfSatsSed)*100 
msgInfoC'Section One","The sat drill set percentage is" 

+strVal(satPercentageSec1)) 

else 

msgStop("Problem",'The total number of watch sections is 0, you cannot divide by 0!") 
return 
endlf 

myQuery3=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatDrill_2ndSec \ 
I Check _EG01 |Check >=~examDate1, <=~examDate2l Check >=50 I 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 ICheck =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 1 Check =OPPE OR =REOPPE| 


EndQuery 

myQuery4=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate 1 %ofSatDrill_2ndSec i 
|Check_EG01 [Check >=~examDate1, <=~examDate2| Check >0 | 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 [Check =~propType| 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType | 

[ _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

executeQBE(myQuery3, "DrilSec2.db") 
executeQBE(myQuery4, "TasISed .db") 

tbl.attachrDrilSec2") 
tbl1 .attachC'TasI Sed") 

numberOfSatsSec2=tbl.cCountC'%ofSatDrill_2ndSec") 
msgInfoC'Section Two'',"The total number of sat drill sets are" 
+strVal(NumberOfSatsSec2)) 

T 0talNumberOfSatsSec2=tbl1 .cCountC'%ofSatDrill_2ndSec") 
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if totalNumberOfSatsSec2 <> 0 then • 
msgInfoC'Section Two","The total number of drill sets are" 

+strVal(totalNumberOfSatsSec2)) 

SatPercentageSec2=(numberOfSatsSec2/totalNumber0^atsSec2)*100 
msgInfoC'Section Two",'The sat drill set percentage is" 

+strVal(satPercentageSec2)) 

6lS6 

msgStop("Problem","The total number of watch sections is 0, you cannot divide by 0!") 
return 
endlf 

myQuery5=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate I %ofSatDrill_3rdSec | 
I Check _EG01 [Check >=~examDate1, <=~examDate2| Check >=50 | 

SHIP.DB I ShipName [PropType | 

I _EG02, _EG01 [Check =~propType[ 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType [ 

I _EG02 [ Check =OPPE OR =REOPPE[ 


EndQuery 

myQuery6=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB [ Operati_Ship_ShipName_FK3 [OperationlD_ExamEndDate [ %ofSatDrill_3rdsec [ 
[ Check _EG01 [Check >=~examDate1, <=~examDate2[ Check >0 [ 

SHIP.DB [ ShipName [PropType [ 

[ _EG02, _EG01 [Check =~propType[ 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType [ 

[ _EG02 [ Check =OPPE OR =REOPPE| 


EndQuery 

executeQBE(myQuery5, "DrilSec3.db") 
executeQBE(myQuer^, 'Tas1 Sect .db") 

tbl.attach("DrilSec3") 
tbl1 .attach("Tas1 Sect") 

numberOfSatsSec3=tbl.cCountC’%ofSatDiill_3rdSec") 
msgInfoC’Section Three","The total number of sat drill sets are " 
+strVal(NumberOfSatsSec3)) 

TotalNumberOfSatsSec3=tbl1.cCount("%ofSatDrill_3rdSec") 
if totalNumberOfSateSecS <> 0 then 
msgInfoC'Section Three",The total number of drill sets are" 
+sttVal(totalNumberOfSatsSec3)) 

SatPercentageSec3=(numberOfSatsSec3/totalNumberOfSatsSec3)*100 
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Object; 
MethodName; 
Source; 


msglnfoC'Section Three","The sat drill set percentage is" 

+strVal(satPercentageSec3)) 

6lS6 

msgStop("Problem","The total number of watch sections is 0, you cannot divide by 0!") 
return 
endlf 
endlf 

tc.openC'percent") 

TC.editO 

tcJnsertRecordO 

tc.CPercentage")=SatPercentageSec1 

tc.CPercentage1")=SatPercentageSec2 

tc.CPercentage2")=SatPercentageSec3 

tc.CPropType")=propType 

tc.("examDate1 ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 


#Page27.#Box28.EVOLUTION_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tbi table 
tbl1 table 

numberOfSatsSed Number 

totalNumberOfEvolutionsSecI Number 

satPercentageSed Number 

numberOfSatsSec2 Number 

totalNumberOfEvolutionsSec2 Number 

satPercentageSec2 Number 

numberOfSatsSec3 Number 

totalNumberOfEvolutionsSec3 Number 

satPercentageSec3 Number 

myQueryl Query 

myQuer^ Query 

myQuery3 Query 

myQuery4 Query 

myQueryS Query 

myQuer^ Query 

examDatel Date 

examDate2 Date 

PropType String 

endVar 

doDefault 

examDatel =date("01 /01/00") 
examDate2=datef 12/31 /99”) 
propType="GT" 

examDatel .viewC'Enter start date (I.E. 01/01/95)") 
examDate2.viewC'Enter stop date (I.E. 01/01/95)") 
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propType.view("Enter prop type (GT/STM/DSL)") 
switch 

case propType="GT": 
case propType="STM": 
case propType="DSL": 
case propType=''ALL": 
otherwise: 

msgStop("Problem",'The choices for Propulsion Type are GT, STM, DSL, or ALL only!") 
return 
endSwitch 

if propType="ALL" then 
myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB I Operati_Ship_ShipName_FK3 lOperationlD_ExamEndDate | %ofSatEvol_1stSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2| Check >=65 | 

SHIP.DB I ShipName |PropType | 

|_EG02,_EG01 ICheckI 

EXAM.DB i ExamlD_Ship_ShipName_FK2 i ExamType I 

I _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationID_ExamEndDate | %ofSatEvol_1stSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2| Check >0 | 

SHIP.DB I ShipName I PropType | 

|_EG02,_EG01 ICheckI 

EXAM.DB i ExamlD_Ship_ShipName_FK2 [ ExamType | 

I _EG02 I Check =OPPE OR REOPPE| 


EndQuery 

executeQBE(myQuery1, 'Tas2Sec1 .db") 
executeQBE(myQuer^, "TasISed .db") 

tbl.attach("Tas2Sec1") 
tbi 1 .attach ("T as1 Sed") 

numberOfSatsSec1=tbl.cCount("%ofSatEvol_1stSec") 
msgInfoC'Section One","The total number of sat evolution sets are" 
+strVai(NumberOfSatsSec1)) 

TotalNumberOfEvolutionsSec1=tbl1.cCount("%ofSatEvol_1stSec") 
if totalNumberOfEvolutionsSed <> Othen 
msgInfoC'Section One",'The total number of evolution sets are" 
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+strVal(totalNumberOfEvolutionsSec1)) 

SatPercentageSed=(numberOfSatsSec1 /totalNumberOfEvolutionsSed )*100 
msgInfoC'Section One","The sat evolution set percentage is" 

+str\/al(satPercentageSed)) 

6lS6 

msgStop("Problem”,"The total number of evolutions is 0, you cannot divide by 0!") 
return 
endlf 

myQuery3=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate I %ofSatEvol_2ndSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2l Check >=65 | 

SHIP.DB I ShipName |PropType I 
1_EG02,_EG01 ICheckl 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType I 

I _EG02 I Check =OPPE OR =REOPPEl 


EndQuery 

myQuery4=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatEvoL2ndSec | 
I Check _EG01 |Check >=~examDate1, <=~examDate2l Check >0 | 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 jCheck | 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

executeQBE(myQuery3, "Tas2Sec2.db") 
executeQBE(myQuery4, "TasISed .db") 
tbi .attach ("Tas2Sec2") 
tbl1 .attachfTasI Sed") 

numberOfSatsSec2=tbl.cCountC%oKatEvol_2ndSec") 
msgInfoC'Section Two",'The total number of sat evolution sets are" 
+strVal(NumberOfSatsSec2)) 

TotalNumberOfEvolutionsSec2=tbl1.cCountC’%ofSatEvol_2ndSec'') 
if TotalNumberOfEvolutionsSec2 <> 0 then 
msgInfoC'Section Two'',''The total number of evolution sets are " 
+strVal(totalNumberOfEvolutionsSec2)) 
SatPercentageSec2=(numberOfSatsSec2ftotalNumberOfEvolutionsSec2)*100 
msgInfoC'Section Two",''The sat evolution percentage is " 
+strVal(satPercentageSec2)) 

else 
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msgStop(”Problem",’The total number of evolutions is 0, you cannot divide by Oi”) 
return 
endlf 

myQuery5=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 10perationlD_ExamEndDate | %ofSatEvol_3rdSec | 
I Check _EG01 JCheck >=~examDate1, <=~examDate2| Check >=65 | 

SHIP.DB I ShipName jPropType | 

1_EG02,_EG01 ICheckl 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType I 

I _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

myQuery6=Query 

ANSWER: :PRIV.ANSWER.DB 

OPERATIO.DB j Operati_Ship_ShipName_FK3 lOperationlD_ExamEndDate | %ofSatEvol_3rdSec i 
I Check _EG01 |Check >=~examDate1, <=~examDate2| Check >0 | 

SHIP.DB I ShipName |PropType | 

1_EG02._EG01 ICheckl 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

executeQBE(myQuery5, 'T as2Sec3.db") 
executeQBE(myQueri«, "TasISed .db") 

tbi .attachC'T as2Sec3") 
tbi 1 .attachC'T as1 Sec1") 

numberOfSatsSec3=tbi.cCount("%ofSatEvol_3rdSec") 
msgInfoC'Section Three","The total number of sat evolution sete are" 
+strVal(NumberOfSatsSec3)) 

TotalNumberOfEvolutionsSec3=tbl1.cCount("%ofSatEvol_3rdSec") 
if TotalNumberOfEvolutionsSec3 <> 0 then 
msgInfoC'Section Three","The total number of evolution sets are" 
+strVal(totalNumberOfEvolutionsSec3)) 
SatPercentageSec3=(numberOfSatsSec3/totalNumberOfEvolutionsSec3)*100 
msgInfoC'Section Three","The sat evolution set percentage is" 
+stf\/al(satPercentageSec3)) 

OlSG 

msgStopC’Problem","The total number of evolutions is 0, you cannot divide by 0!") 
return 
endlf 
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else 

myQuery1=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate ] %ofSatEvoMstSec ] 
I Check _EG01 ICheck >=~examDate1, <=~examDate2| Check >=65 | 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamType | 

I _EG02 I Check =OPPE OR =REOPPE| 


EndQuery 

myQuery2=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB I Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatEvol_1stSec | 
|Check_EG01 [Check >=~examDate1, <=~examDate2| Check >0 [ 

SHIP.DB [ ShipName [ PropType [ 

[ _EG02, _EG01 I Check =~propType[ 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType [ 

[_EG02 [ Check =OPPE[ 


EndQuery 

executeQBE(myQuery1, "Tas2Sec1 .db") 
executeQBE(myQuery2, "TasISed .db") 

tbl.attachCTas2Sec1") 
tbi 1 .attachC'T as1 Sec1") 

numberOfSatsSed =tbl.cCountC'%ofSatEvoM stSec") 
msgInfoC'Section One","The total number of sat evolution sets are" 
+strVal(NumberOfSatsSec1)) 

TotalNumberOfEvolutionsSed =tbl1 .cCount("%ofSatEvol_1 stSec") 
iftotalNumberOfEvolutionsSecI <> Othen 
msginfof Section One","The total number of evolution sets are " 
+strVal(totalNumberOfEvolutionsSec1)) 

SatPercentageSed =(numberOfSatsSec1 /totalNumberOfEvolutionsSed )*100 
msgInfoC'Section One","The sat evolution set percentage is" 
+strVal(satPercentageSec1)) 

else 

msgStopC'Problem",'The total number of evolutions is 0, you cannot divide by 0!") 
return 
endlf 

myQuery3=Query 
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ANSWER: :PRIV:ANSWER.DB 


OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate | %ofSatEvol_2ndSec | 
I Check _EG01 jCheck >=~examDate1, <=~examDate2l Check >=65 [ 

SHIP.DB I ShipName |PropType | 

I _EG02, _EG01 [Check =~propType| 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamType | 

I _EG02 I Check =OPPE OR =REOPPEl 


EndQuery 

myQuery4=Query 

ANSWER; :PRIV:ANSWER.DB 

OPERATIO.DB | Operati_Ship_ShipName_FK3 |OperationlD_ExamEndDate I %ofSatEvol_2ndSec | 
|Check_EG01 [Check >=~examDate1, <=~examDate2| Check >0 [ 

SHIP.DB [ ShipName [PropType [ 

I _EG02, _EG01 [Check =~propType[ 

EXAM.DB I ExamlD_Ship_ShipName_FK2 [ ExamType [ 

[ _EG02 [ Check =OPPE OR =REOPPE[ 


EndQuery 

executeQBE(myQuery3, 'Tas2Sec2.db") 
executeQBE(myQuery4, 'TasISed .db") 
tbl.attachC'T as2Sec2") 
tbl1 .attachC'T as1 Sec1") 

numberOfSatsSec2=tbl.cCountC'%ofSatEvol_2ndSec") 
msglnfo(”Section Two","The total number of sat evolution sets are" 

+strVal(NumberOfSateSec2)) 

TotalNumberOfEvolutonsSec2=tbl1.cCount("%o^atEvol_2ndSec") 
if TotalNumberOfEvolutionsSec2 <> 0 then 
msglnfo("Section Two","The total number of evolution sets are" 

+stiVal(totalNumberOfEvolutionsSec2)) 
SatPercentageSec2=(numberOfSatsSec2/totalNumberOfEvoiutionsSec2)*100 
msglnfoCSecdon Two",’The sat evolution percentage is" 

+strVal(satPercentageSec2)) 

@lS6 

msgStopC'Problem'',"The total number of evolutions is 0, you cannot divide by Ol") 
return 
endlf 

myQuery5=Query 
ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB [ Operati_Ship_ShipName_FK3 [OperationlD_ExamEndDate [ %ofSatEvol_3rdSec [ 
[ Check _EG01 [Check >=~examDate1, <=~examDate2[ Check >=65 | 
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SHIP.DB 1 ShipName |PropType | 

1 _EG02, _EG01 ICheck =~propTypel 

EXAM.DB I ExamlD_Ship_ShipName_FK2 I ExamType 
I _EG02 I Check =OPPE OR =REOPPEl 


EndQuery 

myQuery6=Query 

ANSWER: :PRIV:ANSWER.DB 

OPERATIO.DB I Operati_Ship_ShipName_FK3 lOperationlD_ExamEndDate | %ofSatEvol_3rdSec 
I Check_EG01 [Check >=~examDate1, <=~examDate2| Check >0 j 

SHIP.DB I ShipName jPropType j 
I _EG02, _EG01 [Check =~propType[ 

EXAM.DB [ ExamlD_Ship_ShipName_FK2 [ ExamType [ 

[ _EG02 [ Check =OPPE OR =REOPPE[ 


EndQuery 

executeQBE(myQuery5, 'Tas2Sec3.db") 
executeQBE(myQuer^, "Tas1 Sec1 .db") 

tbl.attachrTas2Sec3") 
tbl1 .attachC'T as1 Sec1") 

numberOfSatsSec3=tbl.cCount("%ofSatEvol_3rdSec") 
msgInfoC'Section Three","The total number of sat evolution sets are" 
+strVal(NumberOfSatsSec3)) 

T otalNumberOfEvolutionsSec3=tbl1 .cCount("%ofSatEvol_3rdSec") 
if TotalNumberOfEvolutionsSec3 <> 0 then 
msgInfoC'Section Three",The total number of evolution sets are" 
+strVal(totalNumberOfEvolutionsSec3)) 
SatPercentageSec3=(numberO^atsSec3/totaiNumberOfEvolutionsSec3)*100 
msgInfoC'Section Three",'The sat evolution set percentage is" 
+strVal(satPercentageSec3)) 

else 

msgStopC'Problem",'The total number of evolutions is 0, you cannot divide by 0!") 
return 
endlf 

endif 

tc.openC'percenf) 

TC.editO 

tc.insertRecordO 

tc.("Percentage")=SatPercentageSec1 

tc.rPercentage1")=SatPercentageSec2 

tc.CPercentage2")=SatPercentageSec3 

tc.("PropType")=propType 

tc.C'examDatel '')=examDate1 

tc.CexamDate2")=examDate2 

tc.endEditO 
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endmethod 


Object: 
MethodName: 
Source: 


Object; 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


#Page27.#Box28.EVOL_SEC3_LISTSHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

new/View tableVievir 
endVar 

new\/iew.open(''tas2sec3") 

endmethod 

#Page27.#Box28.EVOL_SEC1_LISTSHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open(’T as2sec1 ”) 
endmethod 


#Page27.#Box28.EVOL_SEC2_LISTSHIP_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

newView tableView 
endVar 

newView.open("tas2sec2") 

endmethod 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


SPECIAL_SITUATIONS_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

if eventlnfo-isPreFilterO 
then 

; This code executes for each object on the form. 


else 

; This code executes only for the form. 

examMenu.addTextC’&Quif) 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

editO 

endif 

endmethod 


SPECIAL_SITUATIONS_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
endVar 

if eventlnfo.isPreFilterO 
then 

: This code executes for each object on the form. 


Switch 


else 

; This code executes only for the form, 
case eventInfo.menuChoiceO ="&Help": 


case eventInfo.menuChoiceO ="&Quit": 
reply=msgQuestion("Quit",''Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeQ 
else 
return 
endif 
endSwitch 
endif 

endmethod 
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Object: 
MethodName: 
Source; 


Object: 
MethodName: 
Source: 


Object; 
MethodName: 
Source: 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

examMenu Menu 
ReportPop PopUpMenu 
AddPoP PopUpMenu 
endVar 

examMenu.addT ext("&Quit") 

examMenu.showrO 

maximizeO 

hideSpeedBarO 

editO 

endmethod 


#Page2.#Box3.PRINT_REPORT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

myRep Report 
reply String 
endVar 

reply=msgQuestionC'Printthe repoif ."Have you updated the report with the queries?") 

if reply="Yes" then 

myRep.printC’Special") 

else 

return 

endlf 

endmethod 


#Page2.#Box3.VIEW_REPORT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

myRep Report 
reply String 
m menu 
endVar 

reply=msgQuestion("View report","Have you updated the report with the queries?") 
if reply="Yes" then 

myRep.openfSpecial", WinStyleMaximize) 

hideSpeedBarO 

m.addText("") 

m.showO 

message("Shift-F4 for next page, Shift-F3 for previous page, Ctrl-F4 to close report") 
else 
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return 

endlf 

endmethod 


Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source; 


#Page2.#Box3.0VERDUE_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tbi tableView 
myQuery Query 
examDatel Date 
endVar 
doDefault 

examDatel =todayO 
myQuery=Query 

ANSWER: :PRIV;ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 \ NextExamDate 

1 Check _EG01 | Check <=~examDate1 ,NOT BLANK! 

EndQuery 

emptyfLateExam") 

if executeQBE(myQuery, "LateExam.db") then 
msgInfoC'Overdue Query","The Overdue Query was successful!") 
else 

msgStopC'Problem","Sorry, could not open LateExam database.") 
endlf 

endmethod 


#Page2.#Box3.INCOMPLETE_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tbI tableView 
myQuery Query 
examDatel Date 
examDate2 Date 
endVar 

doDefault 

examDatel =date("01 /01 /OO") 
examDate2=date("12/31 /99") 
examDatel .viewfEnter start date (I.E. 01/01/95)") 
examDate2.viewC'Enter stop date (I.E. 01/01/95)") 

myQuery=Query 

ANSWER: :PRIVANSWER.DB 
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Object: 
MethodName: 
Source: 


EXAM.DB 1 ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate 1 ExarnTypej 

I Check 1 Check >=~examDate1, <=~examDate2| Check | 

EXAM.DB I OverallFindingl Comments | NextExamDate | Cleared | 

I Check =INC | Check | Check I Check =N| 


EndQuery 

emptyC'INC") 

if executeQBE{myQuery, "INC.db") then 
msglnfoC'lncomplete Query",'The Incomplete Query was successful!") 

6lS6 

msgStopC'Problem","Sorry, could not open INCOMPLETE database.") 
endlf 

endmethod 


#Page2.#Box3.UNSAT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tbi tableView 
myQuery Query 
examDatel Date 
examDate2 Date 
endVar 

doDefault 

examDatel =date("01/01/00") 
examDate2=date("12/31/99") 
examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95)") 

myQuery=Query 

ANSWER; ;PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate | ExamTypel 

I Check 1 Check >=~examDate1, <=~examDate2| Check 1 

EX/\M.DB I OverallFindingl Comments | NextExamDate | Cleared | 

I Check =UNS 1 Check | Check | Check =N| 


EndQuery 
empty ("Unsat") 

if executeQBE(myQuery, "UnsaLdb") then 
msglnfoC'Unsatisfactory query","The Unsatisfactory Query was successful!") 
else 

msgStop("Problem","Sorry, could not open the unsat database.") 
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endlf 

endmethod 



Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


CUMULATIVE_TREND_QUERY 

arrive 

method arrive(var eventinfo MoveEvent) 
var 

tc Tcursor 

examMenu, View, Print, ReporlMenu Menu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewFlexPop PopUpMenu 

PrintFlexPop PopUpMenu 

examtype PopupMenu 

endVar 

if eventInfo.isPreFilterO 
then 

: This code executes for each object on the form. 


else 

; This code executes only for the form. 

examMenu .addT ext("&Print") 

examMenu .addT extf&Quif) 

examMenu.showQ 

maximizeO 

hideSpeedBarO 

tc.openC'percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endif 

endmethod 


CUMULATIVE_TREND_QUERY 

menuAction 

method menuAction(var eventinfo MenuEvent) 
var 

myRep Report 
reply String 
choiceld Smallint 
endVar 

choiceld=eventlnfo.idO 

if eventInfo.isPreFilterO 
then 

; This code executes for each object on the form. 


else 

; This code executes only for the form. 


Switch 
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Object: 
MethodName: 
Source: 


Object: 
MethodName: 
Source: 


case eventInfo.menuChoiceO ="&Help": 
case eventInfo.menuChoiceO =”&Quit'’: 
reply=msgQuestion("Quit","Are you sure you want to leave this form?") 
If reply = "Yes" then 
closeO 
else 
return 
endlf 

case eventInfo.menuChoiceO ="&Print": 
myRep.printfCumT rend") 
endSwitch 
endif 

endmethod 


#Page2 

setFocus 

method setFocus(var eventinfo Event) 
var 

tc Tcursor 

examMenu, View, Print, ReportMenu Menu 

PrintPop PopUpMenu 

ViewPop PopUpMenu 

ViewFlexPop PopUpMenu 

PrintFlexPop PopUpMenu 

examtype PopupMenu 

endVar 

examMenu.addT extC'&Print") 

examMenu.addT extf'&Quit") 

examMenu.showO 

maximizeO 

hideSpeedBarO 

tc.open("percent") 

tc.editO 

tc.emptyO 

tc.endEditO 

endmethod 


#Page2.0PPE_PERCENT_BUTTON 

pushButton 

method pushButton(var eventinfo Event) 
var 

tc tCursor 
tb! table 
tbl1 table 

numberOKatsOppe Number 
totalNumberOfOppe Number 
satPercentageOppe Number 
myQuery Query 
myQueryt Query 
myQuer^ Query 
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examDatel Date 
examDate2 Date 
propType String 
examType String 
endVar 
doDefault 

examDatel =date(''01/01/00") 
examDate2=date("12/31/99") 
examDatel .view("Enter start date (I.E. 01/01/95)") 
examDate2.view("Enter stop date (I.E. 01/01/95y') 

myQuery=Query 

ANSWER: :PRIV:ANSWER.DB 

EX/\M.DB I ExamlD_Ship_ShipName_FK2 | ExamlD_ExamEndDate lExamType | 

OverallFinding | 

1 Check _EG01 I Check >=~examDate1, <=~examDate2|Check =OPPE | Check =SAT OR 

=EXC OR =GOODl 

SHIP.DB I ShipName | PropType | 

1 _EG01 I Check | 


EndQuery 

myQuery1=Query 

ANSWER: :PRIV:ANSWER.DB 

EXAM.DB I ExamlD_Ship_ShipName_FK21 ExamlD_ExamEndDate lExamType | 

OverallFinding I 

I Check _EG01 1 Check >=~examDate1, <=~examDate2|Check =OPPE 1 Check =SAT OR 

=UNS OR =GOOD OR =EXC1 

SHIP.DB I ShipName | PropType | 

I _EG01 I Check | 

EndQuery 

empty ("OppeSum”) 
emptyC'OppeSumI") 
executeQBE(myQuery, "OppeSum.db") 
executeQBE(myQuery, "OppeSumI .db") 
tbI.attachC'OppeSum") 
tbil .attachC'OppeSumI") 

numberOfSatsOppe=tbl.cCount("OverallFinding") 
msglnfoC’OPPE","The total number of sats are" 

+strVal(NumberOfSatsOppe)) 

TotalNumberOfOppe=tbl1.cCount("OverallFinding") 
if TotalNumberOfOppe <> 0 then 
msglnfoC'OPPE",'The total number is" 

+str\/al(totalNumberOfOppe)) 

SatPercentageOppe=(numberOfSatsOppe/totalNumberOfOppe)*100 
msglnfo("OPPE","The sat percentage is" 


288 



+str\/al(satPercentageOppe)) 

else 

msgStop("Problem'',"The total number of OPPE's is 0, you cannot divide by 01") 
return 
endlf 

tc.openfpercent") 

TC.editO 

tcJnsertRecordO 

tc.C’Percentage")=SatPercentageOppe 

tc.C'PropType")="OPPE" 

tc.C'examDatel ")=examDate1 

tc.C'examDate2")=examDate2 

tc.endEditO 

endmethod 
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APPENDIX H. USER’S MANUAL 


A. INTRODUCTION 

The purpose of this manual is to familiarize the user with the Propulsion Examining Board’s 
Database System (PEBDS). The system uses a series of windows and pull down menus. The system 
is designed to be very easy to use but does require familiarity with Microsoft Windows and the use 
of a mouse. 

B. GETTING STARTED 

Before installing the PEBDS, the Paradox for Windows version 4.5 or 5.0 database 
management software and Microsoft Windows 3.1 or Windows 95 must be installed as specified in 
their respective user’s manuals. The application files in the provided 3.5 inch floppy disks must be 
copied to the hard disk into a directory labeled PEBDS. If the PEBDS directory does not exist, you 
must create the directory either through DOS or the Windows Program Manager. Once the files are 
copied into PEBDS directory, there are two ways to initialize the PEBDS. 

The first way to load the P^DS is to initialize Paradox for Windows by double clicking on 
the Paradox for Windows icon. Once Paradox for Wmdows is loaded, you must change the working 
directory of the database management software to C:\PEBDS by selecting FILE fi’om the main menu 
and then selecting WORKING DIRECTORY. Type in C:\PEBDS and select save, this will change 
the working directory of Paradox for Windows. If you are having difficulty changing the working 
directory, consult the user’s manual for Paradox for Windows for further guidance. Once the 
Paradox for Windows desktop is visible on the screen, initialize the startup script (Startup.ssl) by 
selecting Script fi'om the Open drop down menu. The PEBDS will be loaded with the main menu as 
the first screen. 

The second way to load the PEBDS, which is more robust, is to load the PEBDS directly 
from the Windows Program Manager. You do this by providing an icon that both loads Paradox for 
Windows and the startup script. You first must make the PEB Database program group by selecting 
New from the File drop down menu. Select the Program Group radio button, type in PEB Database 
in the description box and hit Enter. Next select the Paradox for Wmdows icon and then select Copy 
from the File drop down menu. The Copy Program Item dialog box will give you a drop down list 
to select where you want to copy the icon to. Select the PEB Database program group and hit Enter. 
Next highlight the Paradox for Windows icon and choose Properties from the File drop down menu. 
Here you will change the name of the icon to PEBDS by typing PEBDS in the Description box. You 
can now change the look of the icon if you desire by selecting the Change Icon pushbutton. Next you 
must change the Command Line to load the startup script to look like; 

C. \OFFICE\PDOXWIN\PDOXWIN.EXE STARTUP.SSL -c -q -w C;\PEBDS 

Next select the OK pushbutton and you will now have a separate program group and icon to load the 
PEBDS. From the program manager select the PEBDS icon and initialize the application (see figure 
2). Once the application is loaded, the next screen to appear is the main menu for the PEBDS. The 
main menu, (see figure 2), allows the user to input data, process queries, backup data and quit to the 
to the Program Manager through ADD, INQUIRY, BACKUP and QUIT respectively. 
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Figure 2. Main menu screen 


C. MAIN MENU 
1. ADD 

The ADD menu selection will give the user the option to add the following; Ship, Exam, Fire 
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Fighting, Level of Knowledge, Material, Operations, Program Management, and Training. When an 
option is selected, the respective data entry screen will appear and data entry can begin immediately 
(see figure 3). When the last field of data is entered, the cursor will automatically scroll to the first 
field. In addition, there are several default values in selected fields. They have been added to 
decrease data entry. These default values however, can be changed if required. If the user requires 
to enter another record, the user will press the push button. When the push button is pressed, the 
process can now be repeated. If a correction is needed to the current record, the user may choose 
to do either of the following: one press TAB or SHIFT-TAB key(s) to move forward or backward 



Figure 3. Exam input screen. 

respectively or two, position and click the mouse on the field to change. 

All input screens have identical main menus. The choices on the main menu are RECORD 
and QUIT (see figure 3). The RECORD option produces a drop down menu with the choice to 
LOCATE or DELETE. When the LOCATE option is used, a locating dialog box appears and the 
user may locate any record by any field. The default field is the ship name on all input screens. 
However, this default value may be changed by scrolling though the available fields for that screen. 
The DELETE option will delete the current record. A safeguard has been added by providing a 
question dialog box asking the user to verify that he or she wants to delete the current record. Once 
a record is deleted, it cannot be restored unless it is reentered. The QUIT option closes the input 
screen and returns you to the main menu. 

The PEBDS has been designed to provide a robust and user friendly environment. However, 
if the user tries to enter a record that has been previously entered, a Key Violation error will result. 
If this occurs, delete the current record or change the information that is in error (this will most likely 
be the exam end date and ship name combination). This error results fi’om a ship having two exams 
ending on the same date. All other errors are covered by the systems internal error checking 
mechanism. 
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NOTE: You must ADD the ship before any other data entry is 
conducted. The PEBDS is dependent on the ship and data 
pertaining to the ship in each input screen will not be allowed 
unless the ship is in the database first. 

2. INQUIRY 

The Inquiry selection will give the user the option to manipulate the following queries: Boiler 
Flexes, ECCTT, Fire Drills, High Power Demo, OPPE/LOE Area Summary, Program Statistics, 
Monthly OPPE/LOE Summary, and Evolutions and Drills. When an option is selected, the respective 
query screen will appear and manipulation of the query can begin immediately. Since the operation 
of the query screens vary, each of the query screens will be illustrated. However there are several 
features that are common to all query screens and they will be discussed first. 

The similar features common to all query screens are the start date, stop date, propulsion type, 
and exam type input windows (See figures 4, 5, 6 and 7). Other features are the LIST SHIPS and 
RESET GRAPH push buttons. The start date and stop date inputs define the period you want to 
search. The format for the input is 01/01/95,01-01-95, or 01.01.95. If another format is chosen, the 
installed error checking mechanism will signal the user that the choice was invalid. The exam type 
input defines which type of exam you want to search. The choices for are OPPE, REOPPE, LOE, 
or RELOE. The choices must be spelled exactly and must up in uppercase for the input to be valid. 
The propulsion type input defines which ship type you want to search. The choices are GT (Gas 
Turbine), STM (Steam), DSL (Diesel) or ALL (all ship t5qjes). Again the choices must be spelled 
exactly and must be in uppercase for the input to be valid. The exam type and propulsion type inputs 
are common on all but a few of the query screens. The LIST SHIPS push button displays the ships 
in a table format. The RESET GRAPH push button clears the graph for the user to begin 
another query. Caution should be exercised when pressing this push button to prevent firom 
inadvertently clearing the graphical display. 

A. Boiler Flexes Query 

The Boiler Flexes query (see figure 8) enables the user to graphically display the percentage of boiler 
flex levels. To start the query, the user simply presses which level he or she wants to display, for 
example LEVEL 1. The start date and stop date input dialog boxes appear, the desired period is then 
entered and the query conducts the search. The next dialog boxes are informative in nature and the 
result is graphically displayed. To compare the different levels against each other, the user must be 
sure that he or she is consistent with the start and stop dates when the other level push buttons are 
pressed. The LIST SHIPS and RESET GRAPH push buttons were discussed earlier. The Boiler 



Figure 4. Figure 5. Figure 6. Figure 7. 


















































































View Print Quit 





Figure 8. Boiler Flex query. 


Flexes main menu has three options. The options are View, Print, and Quit. The View option 
displays a report that the user can use for information purposes. The Print option displays two 
choices. The choices are Report and Graph. The Report choice prints the report that was previously 
viewed and the Graph choice prints the graph that is ^splayed on the screen. The Quit option returns 
the user to the main menu. 


B. ECCTT query 

The ECCTT query (see figure 9) enables the user to graphically display the ECCTT 
satisfactory percentage. To start the query, the user simply presses the ECCTT push button. The 
start date, stop date, and propulsion type input dialog boxes appear. The desired period and 
propulsion type are entered and the query conducts the search. The next dialog boxes are informative 
in nature and the result is graphically displayed. To compare the ECCTTs of different propulsion 
types, the user must be sure that he or she is consistent with the start and stop dates. The LIST 
SHIPS and RESET GRAPH push buttons have been discussed earlier. The ECCTT query main 
menu has two options. The options are Report and Quit. The Report option displays two choices. 
The choices are View and Print. The View choice has two sub-choices. The sub-choices are Unsat 
ECCTT Report and Sat ECCTT Report. The user can view these reports for information purposes. 
The Print choice has two sub-choices. The sub-choices are Unsat ECCTT Report, Sat ECCTT 
Report, and Graph. The Print choice prints the reports that were previously reviewed and the graph 
that is displayed. The Quit option returns the user to the main menu. 


C. Fire Drills query 

The Fire Drills query (see figure 10) enables the user to graphically display the Fire 
Drills percentage. To start the query, the user simply presses one of three Fire Drill push buttons. 
The start date, stop date, propulsion type, and exam type input dialog boxes appear. The desired 
inputs are entered and the query conducts the search. The next dialog boxes are informative in nature 
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Figure 9. ECCTT query. 

and the result is graphically displayed. To compare the Fire Drills of different propulsion types, the 
user must be sure that he or she is consistent with the start and stop dates. The LIST SHIPS and 
RESET GRAPH push buttons have been discussed earlier. The Fire Drills query main menu has three 



Figure 10. Fire Drills query. 
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options. The options are View, Print and Quit. The View option displays three choices. The choices 
are Fire Drill 1, FireDrill 2, and Fire Drill 3. The user can view these reports for information 
purposes. The P^t option displays four choices. The choices are Fire Drill 1, Fire Drill 2, Fire Drill 
3, and Graph. The Print option prints the reports that were previously reviewed and the graph that 
is displayed. The Quit option returns the user to the main menu. 

D. High Power Demo query 

The High Power Demo query (see figure 11) enables the user to graphically display 
the High Power Demo satisfectory percentage. To start the query, the user simply presses the High 
Power Demo push button. The start date, stop date, and propulsion type input dialog boxes appear. 
The desired period and propulsion types are entered and the query conducts the search. The next 
dialog boxes are informative in nature and the result is graphically displayed. To compare the High 
Power Demos of different propulsion types, the user must be sure that he or she is consistent with 
the start and stop dates. The LIST SHIPS and RESET GRAPH push buttons have been discussed 
earlier. The EBgh Power Demo query main menu has two options. The two options are Report and 
Quit. The Report option displays two choices. The choices are View and Print. The View choice 
enables the user to view the high power demo report. The Print choice has two sub-choices. The 
sub-choices are High Power report and Graph. The Print choice prints the High Power report 
previously viewed and the Graph that is displayed. The Quit option returns the user to the main 
menu. 

E. OPPE/LOE Area Summary query 

The OPPE/LOE Area Summary query (see figure 12) enables the user to graphically 
display the OPPE/LOE area satisfactory percentage. To start the query, the user simply presses the 
desired OPPE/LOE area push button. The start date, stop date, propulsion type, and exam type input 
dialog boxes appear. The desired inputs are entered and the query conducts the search. The next 
dialog boxes are informative in nature and the result is graphically displayed. 



Figure 11. High Power Percentage query. 
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HP: It is a good idea to press the OPPE or LOE percentage push 
button first, then the area push buttons to keep the graph 
consistent. Also, you should keep the propulsion type constant. 

To compare the OPPE/LOE Areas, the user must be sure that he or she is consistent with the start 
and stop dates. The LIST SHIPS and RESET GRAPH push buttons have been discussed earlier. 
The OPPE/LOE Area Summary query main menu has three options. The three options are View, 
P rint and Quit. The View choice has two sub-choices. The sub-choices are Sat and Unsat. These 
sub-choices enable the user to view the following reports: OPPE Percentage, Operations Percentage, 
Fire Fighting Percentage, Material Percentage, Training Percentage, Program Management 



Figure 12. OPPE/LOE Area Summary query. 


Percentage, and LOE percentage. The Print choice has three sub-choices. The sub-choices are Sat, 
Unsat, and Graph. These sub-choices enable the user to print the previously viewed report plus the 
displayed graph. The Quit option returns the user to the main menu. 

F. Program Statistics query 

The Program Statistics query (see figure 13) enables the user to graphically display 
each program percentage. To start the query, the user simply presses the Program push button, for 
example, BEARING RECORDS. The start date, stop date, propulsion type, and exam t 3 ^e input 
dialog boxes appear. The desired period, propulsion type, and exam t 5 q)e are entered and the query 
conducts the search. The next dialog boxes are informative in nature and the result is graphically 
displayed. 

TIP: The user should keep the propulsion type, exam type and 
exam start and stop dates constant to get a homogenous graphical 
display. 
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Figure 13. Program Statistics query. 


The RESET GRAPH push button has been discussed earlier. The Program Statistics query main 
menu has three options. The three options are View, Print, and Quit. The View option has fourteen 
choices to view. These choices are Bearing Records, BWFW, DJWTT, Electrical Safety, FOQM, 
Hearing Conservation, Legal Records, LOQM, MGTESR, OLV, Operating Logs, QA, and Tagout. 
The Print option has fifteen choices to print. These choices are the same as the View option with the 
addition of printing the displayed graph. The Quit option returns the user to the main menu. 

G. OPPE/LOE Monthly Summary of Activity query 

The OPPE/LOE Monthly Summary of Activity query (see figure 14) enables the user 
to obtain information for input to the monthly reports to CINPACFLT and CNO N86P. The 
SUMMARY QUERY push button executes the query. The query must be executed prior to 
reviewing or printing the report. The user can view the report by pressing the VIEW REPORT. 
When the VIEW REPORT push button is pressed, a dialog box appears asking if the user has 
updated the Summary Query. The user can print the report by pressing the PRINT REPORT push 
button. Again a dialog box appears asking if the user has updated the Summary Query. The 
OPPE/LOE Monthly Summary of Activity query main menu has only one option. The Quit option 
returns the user to the main menu. 

H. Evolutions and Drills query 

The Evolutions and Drills query (see figure 15) enables the user to graphically display 
the Fire Drill satisfactory percentage. To start the query, the user simply presses the DRILL SET 
PERCENTAGE or the EVOLUTION SET PERCENTAGE push buttons. The start date, stop date, 
propulsion type, and exam type dialog boxes appear. The inputs are entered and the query 
conducts the search. The next dialog boxes are informative in nature and the result is graphically 
displayed. To compare the Evolution and Drills of different propulsion types, the user must be sure 

that he or she is consistent with the start and stop dates. The SHIPS and RESET GRAPH push 
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buttons have been discussed earlier. The Evolution and Drill query has three options. The three 
options are View, Print and Quit. The View option has six reports to view. The six reports are 
Evolutions Section 1, Drills Section 1, Evolutions Section 2, Drills Section 2, Evolutions Section 3, 
and Drills Section 3. The Print option has seven reports to print. The seven reports are the same as 
the View choices with the exception of the graph report. The Quit option returns the user to the main 
menu. 

L Ships with Special Situations query 

The Ships with Special Situations query (see figure 16) enables the user to obtain 
information for input to the monthly reports to CBSfCPACFLT and CNO N86P. The INCOMPLETE 
QUERY, UNSAT QUERY, and OVERDUE QUERY push buttons execute their respective queries. 
The queries must be executed prior to reviewing the report or printing the report. The user can view 
the report by pressing the VIEW REPORT push button. When the VIEW REPORT push button is 
pressed, a dialog box appears asking if the user has updated the three queries. The user can print the 
report by pressing the PRINT REPORT push button. Again a dialog box appears asking if the user 
has updated the three queries. The Ships with Special Situations query main menu has only one 
option. The Quit option returns the user to the main menu. 

The next dialog boxes are informative in nature and the result is graphically displayed. To 
compare the OPPE percentages, the user must ensure that he or she is consistent with the start date, 
stop date, and propulsion type. The RESET GRAPH push button has been discussed earlier. 


Database Management System - [Monthly summary ] 
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Figure 14. OPPE/LOE Monthly Summary of Activity query. 












Figure 15. Evolutions and Drills query. 





Figure 16. Ships with Special Situations query. 


J. Twelve Month OPPE Cumulative Trend query 

The Twelve Month OPPE Cumulative Trend query (see figure 17) enables the user 
to graphically display the OPPE percentages on a cumulative annual basis. To start the query, the 
user simply presses the OPPE Percentage push button. The start date, stop date, and propulsion type 
dialog boxes appear. The inputs are entered and the query conducts the search. The Twelve Month 































































































































































































































































OPPE Cumulative Trend main menu has two choices. The two choices are Print and Quit. The Print 
option prints the displayed graph and the Quit option returns the user to the main menu. 




utalive Trend] 



Figure 17. Twelve Month OPPE Cumulative Trend query. 
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